В массиве подсчитать: количество положительных и количество чётных чисел вместе....

Question

В массиве подсчитать: количество положительных и количество чётных чисел вместе. (Элементов массива:24. Массив вводится случайным образом в интервале [-6;13])

Comments

Числа вводятся с клавиатуры? Количество "четных или положительных" или "четных положительных"?

---

Числа вводятся с клавиатуры

---

"четных положительных"

Answer 1

На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
end.