Question

В ЭВМ вводятся результаты соревнований по прыжкам в высоту. Число участников произвольно. Напечатать сообщение о победителе. (Оператор цикла FOR,paskal)

Answer 1

program raf105;

var  

 i,n,maxn: integer;

 a,max: real;

begin

max:= -10000;

n:= random(3,10);

writeln('Введите результаты ',n,' участников по очереди');

for i:=1 to n do

begin

 write(i,'. ');

 readln(a);

 if a > max

   then begin

     max:= a;

     maxn:= i;

   end;

end;

writeln('Победил участник №',maxn,' с результатом ',max);

end.

PascalABC 3.4.2

Answer 2

Для написания программы на языке Паскаль, которая находит победителя соревнований по прыжкам в высоту, необходимо предположить, что результаты соревнований хранятся в массиве. Предположим, что у нас есть массив results, в котором хранятся результаты прыжков всех участников. Победителем будет участник с наивысшим результатом.

Вот пример кода на Паскале, использующего оператор цикла FOR, чтобы найти и вывести сообщение о победителе:

pascalCopy code
program FindWinner;

const
  MaxParticipants = 100; // Максимальное количество участников

var
  results: array [1..MaxParticipants] of Real; // Массив для хранения результатов
  numParticipants, i, winnerIndex: Integer;
  maxResult: Real;

begin
  // Ввод количества участников
  writeln('Введите количество участников: ');
  readln(numParticipants);

  // Ввод результатов прыжков участников
  writeln('Введите результаты прыжков участников: ');
  for i := 1 to numParticipants do
  begin
    write('Участник ', i, ': ');
    readln(results[i]);
  end;

  // Поиск победителя
  maxResult := results[1]; // Предполагаем, что первый участник победил
  winnerIndex := 1;

  for i := 2 to numParticipants do
  begin
    if results[i] > maxResult then
    begin
      maxResult := results[i];
      winnerIndex := i;
    end;
  end;

  // Вывод сообщения о победителе
  writeln('Победитель соревнований: Участник ', winnerIndex, ' с результатом ', maxResult:0:2, ' м.');
end.

Обратите внимание, что я использовал тип данных Real для результатов прыжков. Вы можете адаптировать этот код к своим потребностям, если у вас используются другие типы данных или другие имена переменных.