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

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

Ответы и объяснения

  • Segrif
  • почетный грамотей
2013-10-29T15:47:56+00:00
На обычном паскалеАБЦ
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.