uses crt; var a:array[1..50] of integer;n,i:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('a[',i,']: '); readln(a[i]); end; readln; end.
uses crt; var a:array[1..50] of integer;n,i:integer; begin clrscr; write('Nhap n: '); readln(n); for i:=1 to n do begin write('a[',i,']: '); readln(a[i]); end; readln; end.
