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

program zz1;const n = 25; //задаем количество элементов в массивеvar i, max1, k:integer; // задаем переменные целого типаm:array [1..n] of integer;beginfor i:=1 to n do // записываем в массив результаты спортсменов случайным образомm[i]:=random(101);for i:=1 to n do //выводим массив на экранwrite(m[i],\' \');writeln; // переходим на новую строку для вывода ответаmax1:=0; for i:=1 to n do // находим максимальный результат и его номер спортсменаif m[i]>max1 then begin max1:=m[i];k:=i;end;writeln(\' Победитель гонки = \',max1); // выводим ответwrite(\' его порядковый номер = \', k);end.