Ответы на вопрос:
Var a: array[1..1000] of integer; i: integer; chet: integer; nechet: integer; begin i: =1; randomize; while (i< =1000) do begin a[i] : = random(10); if( a[i] mod 2 = 0) then chet: =chet+1 else nechet: = nechet + 1; i : = i + 1; end; writeln('четных чисел: ',chet,' ','нечетных чисел: ' ,nechet) end.
Популярно: Информатика
-
egorywka06.10.2022 19:33
-
VZ125.07.2022 23:22
-
игоревич15975318.06.2022 11:30
-
dashashirobokova13.05.2022 21:25
-
gei22807.12.2022 04:46
-
Ivan856IgR06.03.2020 16:15
-
sveta7up24.08.2022 08:54
-
Rosalin123.03.2020 12:12
-
artyche10.10.2020 22:59
-
venerkaasanova05.05.2020 12:23