Question

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

Answer 1

Ответ:

var

max,a : integer;

begin

readln (a);

max :=a;

repeat

readln (a);

if (a> max) and (a<> 0) then

max :=a;

until a=0;

writeln (max);

readln;

end.