ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Написать программу, которая...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел
завершение вводом 0

Comments

Паскаль? Бейсик? Си?

---

Паскаль

Answer 1

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.