Дан массив из n целых чисел. Выяснить, какое число встречается в массиве чаще-положительное или отрицательное.

VAR a:array[1 ... 1000] of integer;

n, i, kp, ko:integer;

begin

randomize;

write ('Введите количество элементов массива n=') ; readln (n) ;

for i:=1 to n do begin a[i]:=random (100) - 50; write (a[i],' ') ; end;

ko:=0; kp:=0;

for i:=1 to n do

if a[i]> 0 then kp:=kp+1 else if a[i]<0 then ko:=ko+1;

if ko>kp then writeln ('Чаще встречаются отрицательные числа')

else if ko
end.