Tuy hơi dài nhưng câu nào ra câu nấy, rất dễ hiểu nha!
program hoandoi;
uses crt;
var A:array[1..50] of integer;
n,i,tg:integer;
begin
clrscr;
write('Nhap so luong phan tu n: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');
for i:=1 to n do
begin
write('A[',i,'] = ');
readln(A[i]);
end;
for i:=1 to n div 2 do
begin
tg:=A[i];
A[i]:=A[n-i+1];
A[n-i+1]:=tg;
end;
write('Day sau khi hoan doi la: ');
for i:=1 to n do
write(A[i],' ');
readln
end.
Cho mình ctlhn nha