Viết chương trình kiểm tra ma trận có phải là ma phương.khi ma trận được gọi là ma phương khi trong các hàng,cột,các đường chéo bằng nhau.pascal

0 bình luận về “Viết chương trình kiểm tra ma trận có phải là ma phương.khi ma trận được gọi là ma phương khi trong các hàng,cột,các đường chéo bằng nhau.pascal”

1. uses crt;
   var n,i,j,kt:longint; a:array[1..1000,1..1000]of longint;
   b:array[1..10000000]of longint;
   begin
   clrscr;
       write(‘n=’);readln(n);
       for i:=1 to n do
          for j:=1 to n do
             begin
                write(‘a[‘,i,’,’,j,’]=’);readln(a[i,j]);
             end;
       for i:=1 to n do for j:=1 to n do inc(b[i],a[i,j]);
       for i:=1 to n do for j:=1 to n do inc(b[n+i],a[j,i]);
       for i:=1 to n do inc(b[n*2+1],a[i,i]);
       for i:=1 to n do inc(b[n*2+2],a[i,n-i+1]);
       for i:=2 to n*2+2 do if b[i]<>b[i-1] then kt:=1;
       writeln(kt=0);
   readln
   end.

   Bình luận