Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел

завершение вводом 0

Question

Информатика

Катерина

3 августа, 14:47

Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел

завершение вводом 0

+2

Ответы (1)

Знаете ответ на вопрос?

Анастасиюшка · Answer 1

Program n1;

var a, max: integer;

begin

max:=-1;

readln (a) ;

while a0 do

begin

if a>max then max:=a;

readln (a) ;

end;

writeln (max) ;

end.

Написать программу, которая определяет максимальное число из введённой последовательности положительных чиселзавершение вводом 0

Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел

завершение вводом 0