Дан целочисленный массив размера K. Вычислить количество положительных и количество отрицательных элементов массива.

Uses crt;

var mas: array [1 ... 1000] of real;

x, k, o, p:integer;

begin

write ('K=') ; readln (K) ;

o:=0; p:=0;

for x:=1 to K do

begin

write ('mas[', x,']:') ;

readln (mas[x]) ;

if mas[x]<0 then inc (o) ;

if mas[x]>0 then inc (p) ;

end;

writeln;

writeln ('Отрицательных элементов: ', o) ;

writeln ('Положительных элементов: ', p) ;

end.