Câu 2: Viết chương trình nhập vào một dãy số nguyên gồm N phần tử. Kiểm tra xem mảng vừa nhập có đối xứng không.
M.n giúp e đk k ạ e cần gấp!!! Em cảm ơn nhìu!!!
Var a:array[1..1000] of longint;
n,i:integer;
doixung:boolean;
Begin
Write('Nhap so phan tu cua mang'); Readln(N);
For i:=1 to n do
Begin
Write('a[',i,']= ');
Readln(a[i]);
End;
doixung:=true;
For i:=1 to n div 2 do
If a[i]<>a[n-i+1] then doixung:=false;
If doixung=true then write('Doi xung ') else write('Khong doi xung');
Readln;
End.