uses crt;
var a: array[1..100] of integer;
n,i,s: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write ('nhap a[',i,']: '); readln (a[i]);
end;
write ('cac phan tu am: ');
for i:=1 to n do
if a[i]<0 then begin write(a[i],' '); s:=s+i; end;
writeln;
writeln ('tong cac phan tu am la: ',s);
readln;
end.