program n1;
var i,k,s,n:integer;
a:array[0..100]of integer;
begin
s:=0;
repeat
write('Ввведите колличестово элементов (не больше 100) '); read(n);
until n<100;
for i:=1 to n do begin
write('Ввведите A[',i,'] = '); read(a[i]);
if A[i]<0 then begin k:=k+1; s:=s+A[i]; end;
end;
writeln('Колличество отрицательных элементов ',k);
writeln('Сумма отрицательных элементов ',s);
end.