$#QLinkVN$

Code trên ảnh!

program QLinkVN;
uses crt;
var i,n: integer;
      A: array[1..100] of integer;
begin clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
writeln('Gia tri cac phan tu ban vua nhap la: ');
for i:=1 to n do write(a[i]:3);
readln end.
//QLinkVN

uses crt;

var i, n : integer;

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

begin

clrscr;

write('Nhap so so phan tu : '); readln(n);

write('Nhap ', n ,' so nguyen : ');

for i := 1 to n do read(a[i]);

write('Cac gia tri vua nhap : ');

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

readln

end.