Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Вводится n чисел. Найти наибольшее.(Паскаль АВС)

Ответ оставил Гость

Program MAX;
var
    a:integer;{само проверяемое число}
    m:integer;{максимально число}
begin
m:=0;{начальное значение максимального числа}
writeln(Введите ваше число:, (Если захотите выйти, напишите ноль):3);
readln(a);
while (a <> 0) then begin
          If (a > m) then begin
          m:= a; end;
           readln(a); end;
writeln(Максимально число:, m:3);
End.