Vaek
5 год назад
Пожалуйста посчитайте ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Написать программу, которая определяет максимальное число из введённой последовательности положительных чиселзавершение вводом 0
ОТВЕТЫ
Maksim
Oct 24, 2020
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.
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.
950
Смежные вопросы:
