Дано N чисел. НАйти максимальное число.
Ответы на вопрос
Ответил sansanic
0
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.
Новые вопросы
Геометрия,
6 лет назад
Астрономия,
6 лет назад
Математика,
10 лет назад
Математика,
10 лет назад
Математика,
10 лет назад