uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  if a[i]<0 then t:=t+a[i];

writeln('Tong cac phan tu la: ',t);

readln;

chắc vậy :"> 

end.

uses crt;
var lst:array[1..100] of integer;
    i,n,x,tong,count:longint;
Begin
 clrscr;
 write('Nhap n: ');
 readln(n);
 for i:=1 to n do
 begin
  write('lst[',i,']= ');
  readln(lst[i]);
 end;
 write('Nhap so can dem so lan xuat hien: ');
 readln(x);
 tong:=0; count:=0;
 for i:=1 to n do
 begin
  tong:=tong+lst[i];
  if lst[i] = x then count:=count+1;
 end;
 WriteLn('Tong cua cac phan tu trong mang la: ',tong);
  writeln('Tong so lan xuat hien cua so ',x,' la: ',count);
 readln;
end.

Dựa theo đề bạn gửi thì có thể là như thế này, đề cũng không rõ ràng lắm. cho mình ctlhn nha