Question

Дана последовательность целых чисел оканчивающихся нулём. Написать программу находящее самое большое число из всех чисел в последовательности. Программа для PascalABC

Answer 1

Var
A,M:integer;
Begin
WriteLn('Введите последовательность целых чисел');
M:=0;
Repeat
Read(A);
if A>M then M:=A;
Until A=0;
WriteLn(M)
End.