Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Составить программу для определения максимального из четырех(целых) чисел,введенных с клавиатуры

Ответ оставил Гость

Var a,i,max:integer;
begin
  max:=-MaxInt;
  for i:=1 to 4 do begin
    readln(a);
    if a>max then max:=a;
  end;
  writeln(Максимальное ,max);
end.