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

Program chisla;

Var A: array [1 ... 10] of integer;

o, p, i:integer;

Begin

For i:=1 to 10 do Readln (A[i]) ;

For i:=1 to 10 do Begin

If A[i]<0 then o:=o+A[i];

If A[i]>0 then p:=p+1;

End;

Write ('Сумма отрицательных = ', o,'.') ; Writeln ('') ;

Write ('Количество положительных = ', p,'.') ;

End.