Напиши программный код на Паскале для решения задания. Вычислите значение функции z (x, y)= (x+π)/(y+π). у и х нужно задать самому.

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var n:=ReadInteger('n=');
  var m:=18;
  var a:=MatrixRandom(m,n,-999,999);
  var imax:=0;
  var jmax:=0;
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      Write(a[i,j]:5);
      if abs(a[i,j])>abs(a[imax,jmax]) then begin
        imax:=i; jmax:=j
        end
      end;
    Writeln
    end;
  Writeln('Максимум по модулю А[',imax+1,',',jmax+1,
      ']=',a[imax,jmax])
end.

Тестовое решение:
n= 10
 -275  257 -860  744 -263  843    8  667  425 -547
 -392  635  636 -441  -64  973  201 -864 -126 -868
 -764   43 -884 -667 -113  807  354  966 -155 -527
  532 -790 -911    0 -303 -471  453  431 -741 -582
 -121  548 -946  610  724 -426  963 -589 -591  845
 -846  629  728  634 -581  681  141  807 -142  -70
 -510   42 -177  -48  -80 -601  547 -364  862 -593
 -480  770  876 -544  253 -312  -11 -494 -391 -687
  843  -56  558    0 -681  903 -519 -545 -418   15
  387  646 -427  329  928  837 -274  101 -310  325
   27  327 -452 -998  325 -616  752  273 -619  731
 -307 -364  199 -454   86  546  483  823 -367   17
  917   92 -945 -152   19 -126  198 -453 -473  416
  961  888  815  283  286 -483 -604  557  674  935
 -849  207 -926 -149 -677 -248 -552 -972 -756 -617
 -646  -97 -532  673  407  934  272  700  -18 -548
  186  206 -253  -35  769 -196 -179  915  259 -431
  151  926 -851 -302 -134 -289   19  204 -474 -732
Максимум по модулю А[11,4]=-998

1.

program z1;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s:integer;

begin

writeln ('Квадратная матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(10);

write(a[i,j]:3);

if i=j then s:=s+a[i,j]

end;

writeln;

end;

writeln('Среднее арифметическое элементов расположенных на главной диагонали: ',s/n)

end.

2.

program z2;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,s,sp:integer;

begin

writeln ('Квадратная матрица:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:5);

if i=j then s:=s+a[i,j]

end;

writeln;

end;

for i:= 1 to n do

for j:=1 to n do

if (a[i,j]>0) and (a[i,j]>s/n)then sp:=sp+a[i,j];

writeln('Сумма положительных элементов, превышаюших по величине среднее арифметическое всех элементов расположенных на главной диагонали: ',sp)

end.

3.

program z3;

const n=5;

var a:array [1..n,1..n] of integer;

i,j,m,k:integer;

begin

writeln ('Двумерный массив:');

for i:= 1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=Random(21)-10;

write(a[i,j]:5)

end;

writeln;

end;

m:=a[1,1];

for i:= 1 to n do

for j:=1 to n do

if a[i,j]<m then m:=a[i,j];

writeln ('Минимальный элемент ',m);

k:=0;

for i:= 1 to n do

for j:=1 to n do

if a[i,j]=m then

begin

writeln('Индексы [',i,',',j,']');

k:=k+1;

end;

writeln ('Количество минимальных элементов ',k)

end.