ПЕРЕДАЧА МАССИВА В ПРОЦЕДУРУ ЧЕРЕЗ СПИСОК ФОРМАЛЬНЫХ ПАРАМЕТРОВ.

[sifa]

Написать подпрограмму-процедуру(функцию) общего назначения для преобразования
матрицы А произвольного размера (n*m) по следующей формуле:

А[I,J]=A[I,J]/максимальный элемент из минимальных элементов каждой строки


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

Требуется, используя процедуру(функцию), получить из матрицы А[n,m]
матрицу В[5,5] и матрицу C[3,3].
_____________
| | |
| B | |
| | |
|______| A |
| |
| |
|_____________|

Все матрицы передаются в процедуру(функцию) через список формальных
параметров.
Результирующие матрицы В и С распечатываются в основной
программе после вызова процедуры(функции).

[Stilet]

Предлагаю концепцию динамических массивов:

MODULE Hortiza;
IMPORT StdLog,ObxRandom;
TYPE

(*Это наш массив любой длинны*)
VAR  a:POINTER TO ARRAY OF ARRAY OF INTEGER;

(*Резервирует и наполняет случайными значениями массив любой длинны*)
PROCEDURE inn(VAR a:POINTER TO ARRAY OF ARRAY OF INTEGER;n,m:INTEGER);
VAR i,j:INTEGER;
BEGIN
 NEW(a,n,m);
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
    a[i,j]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
    StdLog.Int(a[i,j]);
    StdLog.Tab;
  END;
  StdLog.Ln; 
 END;
END inn;

(*Переформировывает массив*)
PROCEDURE Renova(VAR a:POINTER TO ARRAY OF ARRAY OF INTEGER;n,m:INTEGER);
VAR i,j:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
    a[i,j]:=a[i,j]*12;
    StdLog.Int(a[i,j]);
    StdLog.Tab;
  END;
  StdLog.Ln; 
 END;
END Renova;
(*Здесь вместо числа 12 подставляй вычисления твоих максимумов*)

PROCEDURE do*;
VAR n,k,e:INTEGER;
BEGIN
 StdLog.Clear;
 (*Формируем массив 3х3*)
 inn(a,3,3);
 (*Проводим с его элементами реорганизацию*)
 Renova(a,3,3);
 a:=NIL;
END do;

END Hortiza.
Hortiza.do;

Идея понятна?