Написать программу,которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0
Написать программу,которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0
Гость
Ответ(ы) на вопрос:
Гостьvar a, max: integer;
begin
read(a);
max := -99999;
while(a <> 0) do
begin
if(a > max) then max := a;
read(a);
end;
writeln(max);
end.
Не нашли ответ?
Похожие вопросы