var
i, N: integer;
x, max: real;
begin
write('N = '
;
readln(N);
writeln('Введите ', N, ' вещественных чисел:'
;
read(x);
max := x;
for i := 2 to N do begin
read(x);
if x > max then max := x
end;
writeln;
writeln('Максимальное: ', max)
end.
i, N: integer;
x, max: real;
begin
write('N = '
readln(N);
writeln('Введите ', N, ' вещественных чисел:'
read(x);
max := x;
for i := 2 to N do begin
read(x);
if x > max then max := x
end;
writeln;
writeln('Максимальное: ', max)
end.