Заполнить массив случайными числами от -100 до 100. написать программу, которая отвечает на вопрос: сколько четных элементов?
121
306
Ответы на вопрос:
паскаль
uses crt; varmax, i , n,k2,k : integer; m: array [1..100] of integer; beginrandomize; write('vvedi razmer massiva = '); read (n); k: = 0; k2: =0; for i: =1 to n dom[i]: = random (100)+20; for i: =1 to n doif m[i] mod 2 =0 then k: = k+1 else k2: = k2+1; writeln; for i: = 1 to n dowrite (m[i],' '); writeln; writeln ('chetnii = ',k); writeln ('necetnii = ',k2); readkey; end.
Популярно: Информатика
-
YIUYA123DANIL24.05.2022 05:35
-
ksa410.03.2021 20:14
-
Софияcatwar02.01.2020 03:23
-
artemafanasev200324.06.2022 14:59
-
uzinalizs18.10.2022 10:03
-
Viktoria20043009.02.2020 02:25
-
devoshka200612.11.2021 11:27
-
liza0808200727.05.2022 20:57
-
МАРИШКАНИК21.11.2021 14:27
-
shik0308200110.01.2022 12:40