1). Дан миссив из n целых чисел. Напишите программу определяющую сколько в массиве четных чисел,

2). Дан массив из n целых чисел. Напишите программу определяющую каких элементов в точке больше положительных или отрицательных

Program BiFi;

Const n=50;

Var A:array[1 ... n] of integer;

i, c, l:integer;

Begin

for i:=1 to n do readln (A[i]) ;

c:=0;

for i:=1 to n do if A[i] mod 2 = 0 then c:=c+1;

writeln (c) ;

readln;

end.

Program BiFi;

Const n=50;

Var A:array[1 ... n] of integer;

i, k, l:integer;

Begin

k:=0;

l:=0;

for i:=1 to n do begin readln (a[i]) ;

if A[i]<0 then k:=k+1

else if A[i]>0 then l:=l+1;

end;

if k>l then writeln ('больше положительных')

else if l>k then writeln ('больше отрицательных')

else writeln ('одинаково') ;

readln;

end.