Разработать программу, которая находит наибольшее из нескольких целых чисел. Считать, что первое число определяет количество чисел, осталось ввести.

Question

Информатика

Андроний

23 мая, 22:12

Разработать программу, которая находит наибольшее из нескольких целых чисел. Считать, что первое число определяет количество чисел, осталось ввести.

+1

Ответы (1)

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

Майя · Answer 1

Var a, max, i, n:integer;

begin

readln (a) ;

n:=a-1;

readln (a) ;

max:=a;

for i:=1 to n do

begin

readln (a) ;

if a>max then max:=a;

end;

writeln (max) ;

end.