Question

ПОМОГИТЕ ПОЖАЛУЙСТА, ДАМ МНОГО БАЛЛОВ
Дан одномерный массив из N элементов (количество элементов вводится с клавиатуры во время выполнения программы). Элементы массива вводятся с клавиатуры и могут принимать целочисленные значения от -100000 до 100000. Напишите программу, которая определяет и выводит на экран количество положительных четных элементов массива и количество отрицательных нечетных элементов массива

Answer 1

program mas_kol_pol_kol_otr;

var

i,kolo,kolp,n:integer;

a:array[1..1000000] of integer;

begin

read(n);

kolo:=0;

kolp:=0;

for i:=1 to n do

begin

read(a[i]);

if (a[i]>0)and(a[i]mod 2=0)then

inc(kolp);

if (a[i]<0)and (a[i]mod 2<>0) then

inc(kolo);

end;

write(kolp,' ',kolo);

end.