В каждую ячейку матрицы поместить числа, равные среднему геометрическому их индексов

const
  n = 5;
var
  a: array[1..n, 1..n] of real;
  i, j: integer;
begin
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      // ñðåäíåå ãåîìåòðè÷åñêîå äâóõ ÷èñåë -
      // êâàäðàòíûé êîðåíü ïðîèçâåäåíèÿ ýòèõ ÷èñåë
      a[i,j]:=sqrt(i*j);
      write(a[i,j]:8:2);
    end;
    writeln;
  end;
  // ïðîõîäèì ïî ÷åòíûì ñòðîêàì (èõ èíäåêñû: i*2)
  for i:=1 to n div 2 do
    for j:=1 to n do
      // çíà÷åíèÿ â ÷åòíûõ ñòðîêàõ çàìåíÿåì ñóììîé ýëåìåíòîâ â
      // ïðåäûäóùåé è ïîñëåäóþùåé ñòðîê òîãî æå ñòîëáöà
      a[i*2, j]:=a[i*2-1,j]+a[i*2+1,j];
      
  writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:8:2);
    writeln;
  end;
  readln;
end.

Program zadanie_3;
Var
key: Char;
 
// Процедура вывода массива на экран
Procedure print_massiv(A: array [,] of Real; n, m: Integer);
Var i, j: Integer;
Begin
For i:=0 to n-1 do
Begin WriteLN;
For j:=0 to m-1 do
Write(A[i,j]: 8: 4); End;
End;
 
Procedure worker;
Var
A: array [,] of Real;
i, j, n, m, d: Integer;
Begin
// Инициализация динамического массива
Repeat
Begin
WriteLN('Введите количество строк в массиве, оно должно быть нечётным');
ReadLN(n);
End;
Until n mod 2 <> 0;
WriteLN('Введите количество столбцов в массиве');
ReadLN(m);
A:=new Real [n,m];
// Расчёт элементов массива
For i:=0 to n-1 do
For j:=0 to m-1 do
A[i,j]:=sqrt((i+1)*(j+1));
print_massiv(A, n, m);
WriteLN; // Пустая строка для более удобного чтения результатов программы
// Преобразование элементов массива
For i:=0 to n-1 do
Begin d:=i mod 2; If d<>0 Then
For j:=0 to m-1 do
A[i,j]:=A[i-1,j]+A[i+1,j]; End;
print_massiv(A, n, m);
WriteLN;
End;
 
Begin
worker;
While true do
Begin
WriteLN ('Для продолжения работы программы введите <1>, для выхода <0>');
ReadLN (key);
Case key of
#49: worker;
#48: Halt(1);
End;
End;
End.