В массиве хранится информация о результатах 25 спортсменов,
участвовавших в лыжной гонке. Российский спортсмен участвовал под
номером 4. Определить результат спортсмена-победителя гонки и какое
место занял российский лыжник.

Вопрос школьника по предмету Информатика

В массиве хранится информация о результатах 25 спортсменов,
участвовавших в лыжной гонке. Российский спортсмен участвовал под
номером 4. Определить результат спортсмена-победителя гонки и какое
место занял российский лыжник.

Ответ учителя по предмету Информатика

const n=25; 

var a,b:array[1..n] of integer;

i,j,t:integer; 

begin

Randomize;

writeln(‘Результаты:’);

for i:=1 to n do

 begin

 a[i]:=random(31)+10;

 write(a[i]:3);

 end;

writeln;

for i:=1 to n do b[i]:=i;

for i:=1 to n-1 do

  for j:=1 to n-i do

    if a[b[j]]>a[b[j+1]] then

    begin 

    t:=b[j]; b[j]:=b[j+1]; b[j+1]:=t;

    end;

writeln(‘Победитель:’);

writeln(‘min = ‘,a[b[1]],’ его номер = ‘,b[1]);

j:=1;

while b[j]<>4 do j:=j+1;

writeln(‘Результат российского лыжника: ‘, j,’ место’);

end.

Пример:

Результаты:

 38 19 22 11 16 40 22 18 21 16 15 33 38 34 39 21 19 10 25 15 40 13 34 27 37

Победитель:

min = 10 его номер = 18

Результат российского лыжника: 2 место

PS. Места, которые заняли спортсмены с одинаковыми результатами, в программе будут различны.