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

Question

Информатика

Маркел

16 февраля, 13:15

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

+5

Ответы (1)

Знаете ответ на вопрос?

Сергуня · 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.