Ответы на вопрос:
Var a: array [1..31] of integer; i,m: integer; begin for i: = 1 to 31 do a[i]: = random(26); writeln(a); for i: =1 to 31 do if a[i]> m then m: =a[i]; write('самая высокая температура - ',m,' наблюдалась: '); for i: =1 to 31 do if a[i]=m then write(i: 3); write(' мая') end.
Популярно: Информатика
-
Kotik5l618.04.2022 21:41
-
FullDown13.05.2021 03:37
-
GhostUltimate07.12.2022 15:17
-
Адамчик1104.12.2022 10:52
-
74563218903.06.2022 16:37
-
Kroo6694418.11.2020 18:39
-
lox5420.10.2022 10:46
-
efrakoff28.05.2023 12:21
-
АнисаСакинаМедина22.04.2021 02:51
-
yyydomayyy09.06.2022 09:06