Составить программу определения количества положительных и отрицательных элементов массива целых чисел.

Program n1;

const n=10;

var a: array[1 ... n] of integer;

i, ko, kp: integer;

begin

randomize;

ko:=0;

kp:=0;

writeln ('исходный массив:') ;

for i:=1 to n do

begin

a[i]:=random (21) - 10;

write (a[i],' ') ;

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

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

end;

writeln;

writeln ('кол-во пол: ', kp) ;

writeln ('кол-во отр: ', ko) ;

end.

Program n1;

const n=10;

var a: array[1 ... n] of integer;

i, ko, kp: integer;

begin

randomize;

ko:=0;

kp:=0;

writeln ('исходный массив:') ;

for i:=1 to n do

begin

a[i]:=random (21) - 10;

write (a[i],' ') ;

if a[i]>0 then

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

w

w

e