Предмет: Информатика,
автор: cyruss
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел
завершение вводом 0
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: tisuka20
Предмет: Математика,
автор: leracoj450
Предмет: Українська мова,
автор: igortitievskij246
Предмет: Алгебра,
автор: gtaxochy