const n=9;  amax=99;
var a: array [1..n] of integer;
                p,s,j: integer;
BEGIN
randomize;  
for j:=1 to n do write(j:4);
writeln;
for j:=1 to n do begin
  a[j]:=random(2*amax+1)-amax;
  write(a[j]:4)      end;
writeln;
write('Кількість додатних елементів ',
      'і сума від''ємних дорівнюють ');
s:=0;
p:=0;
for j:=1 to n do if a[j]>0 then inc(p)
                           else s:=s+a[j];
writeln(p:4,s:5)
END.