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

Лучший Ответ!
2013-06-11T16:52:48+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program sherilusha;
uses crt;
var
  i,n: integer;
  max, temp: real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Ввести количество чисел'); readln(n);
  writeln('Введите числа');
  write('1-е число:'); readln(max);
  for i:=2 to n do
    begin
      write(i,'-е число:'); readln(temp);
      if max<temp then max:=temp;
    end;
  writeln('Максимальное из введённых чисел равно ',max) ;
end.