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

mdjjhhjdjnemash mdjjhhjdjnemash    2   15.06.2019 16:30    1

Ответы
marialkahelp marialkahelp  02.10.2020 02:13
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика