Program hoc24hoc24;
Uses crt;
Var i: Integer;
A: array [1..10] of Integer;
BEGIN
Clrscr;
For i:=1 to 10 do
Begin write ('A[',i,']='); readln (A[i]); end;
For i:= 1 to 10 do write (A[i]:3);
Readln
End.
Bạn vào link này nhé:
https://hoc24.vn/hoi-dap/question/253515.html