uses crt;
var a: array[1..100] of integer;
n,i,d: integer;
begin
clrscr;
d:=0;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
writeln('Cac phan tu trong mang la: ');
for i:=1 to n do
write(a[i],' ');
readln;
end.
đã test mong đc vote