Объяснение:

uses crt;

var

a:array [1..100] of integer;

s,n,i:integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

s:=0;

clrscr;

for i:=1 to n do

if A[i]<0

then

s:=s+1;

for i:=1 to n do

writeln ('summa otricatelnih chisel:');

writeln (s);

end.