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

Program n1;const n=10;var a: array[1..n] of integer;i,ko,kp: integer;beginrandomize;ko:=0;kp:=0;writeln('исходный массив:');for i:=1 to n dobegina[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;beginrandomize;ko:=0;kp:=0;writeln('исходный массив:');for i:=1 to n dobegina[i]:=random(21)-10;write(a[i],' ');if a[i]>0 then if a[i]<0 then ko:=ko+1;wwe