Ответы на вопрос:
Var a: array[1..100]of integer; nol,chet,nechet,i,n: integer; begin readln(n); for i: =1 to n do begin readln(a[i]); if (a[i] mod 2=0)and(a[i]< > 0) then chet: =chet+1; if (a[i] mod 2=1) then nechet: =nechet+1; if a[i]=0 then nol: =nol+1; end; writeln('четных : ',chet,' ','нечетных : ',nechet,',' ',нулевых : ',nol); end.
Популярно: Информатика
-
wq5335wq17.01.2023 08:27
-
hitman1910200310.12.2021 10:25
-
TheOll03.03.2021 09:24
-
Koshaplay5720.03.2022 19:34
-
СерсеяЛаннистер29.09.2021 04:55
-
Ярослав1234567823.05.2022 16:57
-
rzhanova0006.04.2020 22:51
-
elizabetfox122227.11.2020 02:01
-
kpnkipm09.06.2021 12:44
-
dumargarita30.12.2021 05:32