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.