uses crt;

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

i,n: integer;

begin

clrscr;

write ('nhap so luong phan tu: ');  readln (n);

for i:=1 to n do

begin

write ('nhap a[',i,']: ');  readln (a[i]);

end;

clrscr;

write ('mang vua nhap: ');

for i:=1 to n do write (a[i],'  ');

readln;

end.

xin hay nhất nhea :))

uses crt;
var i,n,s: integer;
a: array[1..50] of integer;
begin
clrscr;
s:=0;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do begin
write('A[',i,']='); readln(a[i]); end;
for i:=1 to n do
if a[i] < 0 then
s:=s+a[i];
if s<>0 then begin
write('Cac so an la: ');
for
i:=1 to n do
if a[i] < 0 then write( a[i],' ');
writeln;
writeln('Tong cua cac so khong am la: ',s);
end else writeln('Khong co so am');
readln;
end.

đã test! mong đc vote