Предмет: Информатика, автор: faerlessness

Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение наибольшего из введённых чисел.Используйте оператор while. Решить в паскале.

Ответы

Автор ответа: leon123
0
var
n,max:Integer;
Begin
 max:=1;
 n:=1;
 While(n<>0) do
  begin
   Read(n);
   if (n>max) then max:=n;
  end;
  Writeln('Max number = ',max);
 end.

Похожие вопросы
Предмет: Қазақ тiлi, автор: janarusmankulova
Предмет: Обществознание, автор: eva12talalaeva2017