В массиве хранится информация о результатах 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.