Ребят,помоги пожалуйста,написать программу!) в эвм по очереди поступают результаты...

Question

Ребят,помоги пожалуйста,написать программу!) в эвм по очереди поступают результаты соревнований ,в которых участвуют N спортсменов.Составьте программу,которая обеспечивает вывод на экран лучшего результата каждыйраз после ввода результата очередного спортсмена

Answer 1

var n,i: integer;

      result,thebest: real;

begin

  thebest:=1;

  writeln('Введите количество спортсменов');

  readln(n);

  for i:=1 to n do begin

    writeln('Введите результат ',i,' спортсмена');

    readln(result);

    if result>thebest then thebest:=result;

    writeln('Лучший результат: ',thebest);

                         end;

end.