Три задачи с массивами (Pascal).

[Ploho]

1) Упорядочить массив c(20) алгоритмом пирамидальной сортировки.

2) Определить, является ли массив a(5,5) "магическим квадратом", в котором суммы рядов, столбцов, диагоналей одинаковы.

3) Стартовый массив В(7,9) содержит перемененные типа DOUBLE. Найти в каждом ряде матрицы максимальные и минимальный элементы и поместить их на место первого и последнего элемента ряда соответственно.

[Arigato]

Сообщение от Ploho

2) Определить, является ли массив a(5,5) "магическим квадратом", в котором суммы рядов, столбцов, диагоналей одинаковы.

Набросал функцию для определения "магического квадрата". Писалась без проверки, так что проверяйте корректность работы:

type
  TMatrix = array[1..5,1..5] of Integer;

function MagicSquare(M: TMatrix): Boolean;
var
  i,j,s,si,sj: Integer;
begin
  {Предполагаем, что матрица "магический квадрат"}
  MagicSquare:=True;
  {Находим сумму диагоналей}
  si:=0; sj:=0;
  for i:=1 to 5 do begin
    Inc(si,M[i,i]);
    Inc(sj,M[i,5-i+1]);
  end;
  {Если суммы диагоналей не равны - False}
  if sj<>si then
    MagicSquare:=False;
  {Запоминаем сумму}
  s:=si;
  {Находим суммы строк и столбцов}
  for i:=1 to 5 do begin
    si:=0; sj:=0;
    for j:=1 to 5 do begin
      Inc(si,M[i,j]);
      Inc(sj,M[j,i]);
    end;
    {Сравниваем суммы, если не равны - False}
    if (si<>s) or (sj<>s) then
      MagicSquare:=False;
  end;
end;

[Serge_Bliznykov]

Arigato, я умозрительно ошибок в вашем коде не вижу, имхо, будет работать правильно.

Единственное маленькое замечание по целесообразности.
если MagicSquare стало False, то дальше продолжать считать суммы смысла уже нет, можно смело выходить из функции (Exit)

[Arigato]

Да, можно, но решил без Exit. Зато скорость работы функции стабильна, и не зависит от исходных данных

[Serge_Bliznykov]

Зато скорость работы функции стабильна, и не зависит от исходных данных

Это точно!