Tin học kiểu mảng

[thuytiendp1qn2603@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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!!!

 

[Nhật Hạ !]

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.