Дано N чисел. НАйти максимальное число.

Question

Информатика

Артемей

19 июня, 22:06

Дано N чисел. НАйти максимальное число.

+4

Ответы (1)

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

Егоня · Answer 1

var a, max: real;

n, i: integer;

begin

max:=0;

readln (n) ;

for i:=1 to n do begin

readln (a) ;

if a>max then max:=a;

end;

writeln (max) ;

end.