profile
Опубликовано 6 лет назад по предмету Информатика от nastya2296

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

  1. Ответ
    Ответ дан sansanic

    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.

        

      

Самые новые вопросы