Ответы на вопрос:
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.
Популярно: Информатика
-
VeryLittleTasia03.06.2022 11:39
-
209439an07.01.2022 05:59
-
ybibisheva05.07.2021 06:54
-
yuriayato04.01.2021 07:04
-
Юль4ик1114.12.2020 01:37
-
adrian55RUS08.07.2022 02:34
-
katya02204.06.2022 22:12
-
1SyhakJS212.09.2022 12:55
-
PonchiKmm06.06.2021 08:45
-
inkakanchiyp0706d23.04.2023 18:55