KIỂM TRA MẢNG CO ĐỐI XỨNG HAY KHÔNG

12.

Kiểm tra mảng co đối xứng hay không?

A1 = 1 4 5 6 7InputA2 = 1 2 3 2 1A3 = 1 2 3 3 2 1A1 không đối xứngOutputA2 đối xứngA3 đối xứng Xác định bài toán:- Input: mảng a, giá trị k- Output: thông báo mảng a có đối xứng hay không. Thuật toán:- B1Nhập n, a

1

,a

2

, …, a

n

- B2: i 1, dx  true

-

B3: nếu a

i

<> a

n-i+1

thì dx nhận giá trị mới là false.

-

B4: ii+1;- B5: nếu i > n, o B5.1: kiểm tra nếu dx = true thì tb mảng đối xứng và kết thúco B5.2: dx = false thì thông báo mảng không đối xứng và kết thúc- B6: quay lại bước 3. Chương trình: program doixung;uses crt;var a:array[1..15] of integer; n,i:byte; dx:boolean;beginclrscr; write('nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('nhap phan tu a[',i,'] ='); readln(a[i]); end; write('mang moi nhap la: '); for i:=1 to n do write(a[i]:4); writeln; dx:=true; if a[i] <> a[n-i+1] then dx:=false; if dx= true then writeln('day la mang doi xung') else writeln('day khong phai mang doi xung');readln