Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел завершение вводом 0

Бика2525 Бика2525    3   26.08.2019 04:20    0

Ответы
denisnickolenko denisnickolenko  05.10.2020 20:16
Var
A,M:integer;

Begin
Read(A);
M:=A;
While A<>0 do
   Begin
   Read(A);
   if A>M then M:=A
   End;
Write('Max = ',M)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика