Nhập mảng A gồm N phần tử ( N<=10). Sắp xếp dãy số theo quy tắc sau A1 đổi chỗ cho An, A2 đổi chỗ cho An-1, A2 đổi chỗ cho An-2 .... Đưa kết quả ra màn hình

uses crt;

var A : array [1 .. 1000] of integer;

i, n, j : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap day gom ', n ,' so : ');

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

i := 1; j := n;

while i < j do begin

a[i] := a[i] + a[j];

a[j] := a[i] - a[j];

a[i] := a[i] - a[j];

i := i + 1; j := j - 1; end;

write('Mang A : ');

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

readln

end.

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,tg: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        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;
        For i:=1 to n do Write(A[i],' ');
        Readln
End.