Jater

Elena_matrix

Dec 27th, 2012
104
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Дана целая квадратная матрица N-го порядка.
  2. Определить, является ли она магическим квадратом,
  3. т.е. такой, в которой суммы элементов во всех строках и столбцах одинаковы.}
  4. var
  5.     a:array[1..10,1..10] of integer;
  6.     i,s,j,n,s2,s1,h:integer;
  7.     b:boolean;
  8. begin
  9.     write('Vvedi razmer(ne bolee 10): ');
  10.     readln(n);
  11.     write('vvedi elementy: ');
  12.     for i:=1 to n do
  13.         for j:=1 to n do
  14.             read(a[i,j]);
  15.     writeln;
  16.     for i:=1 to n do
  17.         begin
  18.         for j:=1 to n do
  19.             write(a[i,j]:4);
  20.         writeln;
  21.         end;
  22.     s2:=0;b:=true;h:=0;
  23.     for j:=1 to n do
  24.         s2:=a[1,j]+s2;
  25.     for i:=1 to n do
  26.     begin
  27.         s1:=0;
  28.         for j:=1 to n do
  29.             s1:=a[i,j]+s1;
  30.         if s1=s2 then h:=h+1;
  31.     end;
  32.     if h<>n then b:=false;
  33.     h:=0;s2:=0;
  34.     for i:=1 to n do
  35.         s2:=a[i,1]+s2;
  36.     for i:=1 to n do
  37.     begin
  38.         s1:=0;
  39.         for j:=1 to n do
  40.             s1:=a[j,i]+s1;
  41.         if s1=s2 then h:=h+1;
  42.     end;
  43.     if (h<>n)or(b=false) then b:=false;
  44.     if b then writeln('kvadrat magic')
  45.         else writeln('samyi obychnyi kvadrat, nichem ne vydelyaetsya');
  46.     readln;
  47. End.
RAW Paste Data