Ответы и объяснения

Лучший Ответ!
  • Участник Знаний
2014-03-01T09:25:08+00:00
Begin
write('Введите целое число n (n>0): ');
var n := ReadInteger;
  assert(n>0);
write('Введите число: ');
var x := ReadReal;
var max := x;
for var i := 2 to n do
begin
write('Введите ', i, ' число: ');
x := ReadReal;
if max < x then
max := x;
  end;
writeln('Максимальное из введенных чисел: ', max);
end.