Процедуры и функции Опции

[DISQUE]

Помогите, пожалуйста, решить задачу : Определить функцию, определяющую максимальный элемент массива и использовать ее для определения максимального элемента матрицы.

[volvo]

Оля, это ж обычный TypeCast - приведение двумерной матрицы к одномерному массиву:

const
  n = 5;
  m = 4;
type
  vector = array[1 .. m] of integer;
  matrix = array[1 .. n] of vector;

  IntArr = array[1 .. 1] of integer;

function find_max(const arr: array of integer; const size: integer): integer;
var i, max: integer;
begin
  max := arr[0];
  for i := 1 to pred(size) do
    if max < arr[i] then max := arr[i];
  find_max := max;
end;


var
  a: matrix;
  i, j: integer;

begin
  for i := 1 to m do begin
    for j := 1 to n do begin
      a[i, j] := random(100);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln(find_max(IntArr(a[1, 1]), m*n));
end.