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

Вводится последовательность ненулевых чисел, 0 – конец последовательности. Определить наибольшее число в последовательности.

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

Var a,max:integer;
begin
  max:=0;
  repeat
     readln(a);
     if a>max then max:=a;
  until a=0;
  writeln(max: ,max);
end.

Вариант с циклом while

var a,max:integer;
begin
  writeln(Введите число: );
  readln(a); max:=a;
  while a<>0 do begin
   writeln(Введите число: );
   readln(a);
   if a>max then max:=a;
  end;
  writeln(max: ,max);
end.