Магический, или волшебный, квадрат — это квадратная таблица nxn, заполненная n 2 числами таким образом, что сумма чисел в каждой строке, каждом столбце и на обеих диагоналях одинакова. задан двумерный массив размерностью nxn. определить, является ли он магическим квадратом. составить блок схему, описание решения и программу на паскаль

Программа для решения поставленной - в прилагаемом файле. отмечу, что программа далеко не оптимальная. например, совсем не обязательно искать все суммы. если хотя бы одна не совпала с предыдущими, то вычисления можно закончить. в комментарии в начале программы дан пример магического квадрата для проверки.

Var   i,j,n: integer;   m: array[1..10,1..10] of integer;   flag: boolean;   sum: array[0..1] of longint;   begin   readln(n);   flag: =true;   for i: =1 to n do     begin     for j: =1 to n do       read(m[i,j]);     readln;     end;       //проверяем строки   i: =1;   for j: =1 to n do       sum[i mod 2]: =sum[i mod 2]+m[i,j];   while ((i< n) and flag) do     begin       i: =i+1;       for j: =1 to n do       sum[i mod 2]: =sum[i mod 2]+m[i,j];       if sum[0]< > sum[1] then flag: =false;       sum[(i+1) mod 2]: =0;     end;       //проверяем столбцы     sum[0]: =0;   sum[1]: =0;   j: =1;   for i: =1 to n do       sum[j mod 2]: =sum[j mod 2]+m[i,j];   while ((j< n) and flag) do     begin       j: =j+1;       for i: =1 to n do       sum[j mod 2]: =sum[j mod 2]+m[i,j];       if sum[0]< > sum[1] then flag: =false;       sum[(j+1) mod 2]: =0;     end;     sum[0]: =0;   sum[1]: =0;   j: =1;   for i: =1 to n do     begin     sum[0]: =sum[0]+m[i,j];     sum[1]: =sum[1]+m[n-i+1,j];     j: =j+1;     end;   if   sum[0]< > sum[1] then flag: =false;   if flag then writeln('магический');   end.

Var  a: array[1..10] of integer;   i,j,k: integer; begin  for i: = 1 to 10 do  begin      a[i]: =random(81)-40;     write(a[i],' ');   end;   writeln;   for i: = 1 to 10 do    for j: = 1 to 9 do      if a[j]> a[j+1] then      begin        k: =a[j];         a[j]: =a[j+1];         a[j+1]: =k;       end;   for i: = 10 downto 1 do  write(a[i],' '); end.