Ответы на вопрос:
Program massiv; var a,n,i,kol: integer; m: array[1..40] of integer; beginwriteln('массив из случайных 12 чисел: '); for i: =1 to 12 do beginm[i]: =random(40)+2; write(m[i]: 4); if m[i] mod 2 = 0 then kol: =kol+1; end; writeln; writeln('количество четных чисел'); write(kol); end. с тебя лучший ответ)
Популярно: Информатика
-
Елька16507.11.2021 20:48
-
sonikzets15.09.2020 02:54
-
рооллбббб30.09.2022 12:06
-
ВасилийПупкин22730.07.2022 06:35
-
seocer08.04.2020 22:36
-
okotletacot14.10.2020 06:30
-
zakenalma19.06.2020 05:56
-
Chara513.05.2023 23:54
-
алина353923.09.2021 10:12
-
ПростоРадмир00127.04.2020 13:44