В массиве хранится информация о результатах 25 спортсменов, участвовавших в лыжной гонке. Определить результат спортсмена- победителя гонки.
const n = 25;
var
a: array[1..n] of integer;
i, result, num: integer;
begin
result := 50;
for i := 1 to n do begin
a[i] := random(30) + 20;
write(a[i], );
if(a[i] < result) then begin
result := a[i];
num := i;
end;
end;
writeln;
writeln(Лучший результат у спротсмена под номером [, num, ] его время: , result);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
