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

romanajmusin520 romanajmusin520    2   25.07.2019 07:00    3

Ответы
Ludok0309 Ludok0309  24.09.2020 11:19
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика