uses crt; var i,n:longint; a:array[1..1000]of longint; 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('Day so da nhap: '); for i:=1 to n do write(a[i],' '); readln end.
uses crt; var a:array[1..1000] of longint; n,i:integer; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do begin write('a[',i,']: ');readln(a[i]); end; write('Day vua nhap: '); for i:=1 to n do write(a[i],' '); readln; end.
