Nhập vào 1 mảng tối đa 200 trăm phần tử kiểm tra tính đối xứng của mảng. E cần gấp ạ

0 bình luận về “Nhập vào 1 mảng tối đa 200 trăm phần tử kiểm tra tính đối xứng của mảng. E cần gấp ạ”

1. Program BTT;
   Uses crt;
   Type manga=array[1..10000] of longint;
   Var A: manga;
       n,i: longint;

   Function ktra(A: manga; n: longint): boolean;
   Var i: longint;
   Begin
           For i:=1 to n div 2 do
                   If A[i]<>A[n-i+1] then exit(false);
           exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           If ktra(A,n) then Write(‘Mang doi xung’)
           Else Write(‘Mang khong doi xung’);
           Readln
   End.

   Bình luận