Подпрограммы

program a1;
uses crt:
type
     arr=array[1..5,1..5] of integer;
     const
a:arr=((1, 2, 3, 5, 7),
        (4, 3 ,4 ,1, 6),
        (3, 3, 1, 1, 2),
        (5, 3, 1, 7, 4),
        (3, 1, 3, 2, 2));
procedure write_matr(x:arr);
var
i,j: integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do
write(x[i,j]:5);
writeln;
end;
end;
function naib_nech(x:arr): integer;
var i,j,n: integer;
begin
n:=0;
for i:=1 to 5 do
for J:=1 to 5 do
if a[i,j]>n then
n:=a[i,j];
writeln('naib_nech ' ,n);
end;
end;
procedure k(var b:arr);
var i,j: integer;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
b[i,j]:=random(30)+10;
end;
procedure del(a:arr);
var i,j: integer;
begin
for i:=1 to 5 do
for J:=1 to 5 do
b[i,j]:=a[i,j]/i;
end;

const
  n_max = 5;
 
type
  arr = array[1..n_max, 1..n_max] of integer;
  RealArr = array[1..n_max, 1..n_max] of real;
 
const
  a: arr = ((8, 2, 3, 5, 7),
        (4, 3, 4, 1, 6),
        (3, 3, 1, 1, 2),
        (5, 3, 1, 7, 4),
        (3, 1, 3, 2, 2));
 
var
  b: arr;
  d, c: realarr;
 
procedure write_matr(x: arr);
var
  i, j: integer;
begin
  for i := 1 to n_max do 
  begin
    for j := 1 to n_max do
      write(x[i, j]:5);
    writeln;
  end;
end;
 
procedure print_matr(x: realarr);
var
  i, j: integer;
begin
  for i := 1 to n_max do 
  begin
    for j := 1 to n_max do
      write(x[i, j]:8:2);
    writeln;
  end;
end;
 
function naib_nech(x: arr): integer;
var
  i, j, n, k: integer;
begin
  n := 1;
  k := 1;
  for i := 1 to n_max do
    for J := 1 to n_max do
      if odd(x[i, j]) then
      begin
        n := i;
        k := j;
        break;
      end;
  for i := 1 to n_max do
    for J := 1 to n_max do
      if odd(x[i, j]) and (x[i, j] > x[n, k]) then
      begin
        n := i;
        k := j;
      end;
  naib_nech := x[n, k];
end;
 
procedure RandomMatrix(var b: arr);
var
  i, j: integer;
begin
  randomize;
  for i := 1 to n_max do
    for j := 1 to n_max do
      b[i, j] := random(30) + 10;
end;
 
procedure del(a: arr; var x: realarr);
var
  i, j: integer;
begin
  for i := 1 to n_max do
    for J := 1 to n_max do
      x[i, j] := a[i, j] / i;
end;
 
begin
  writeln('Константная матрица А: ');
  write_matr(a);
  RandomMatrix(b);
  writeln('Случайная матрица B: ');
  write_matr(b);
  writeln('Наибольшее из нечетных элементов матрицы А: ', naib_nech(a));
  writeln('Наибольшее из нечетных элементов матрицы B: ', naib_nech(b));
  writeln('Деление каждого элемента матрицы на номер строки этого элемента:');
  writeln('Константная матрица А после преобразований: ');
  Del(a, c);
  print_matr(c);
  writeln('Матрица B после преобразований: ');
  Del(b, d);
  print_matr(d);
end.