Задача с матрицами(Массивы)

[Ирина_13]

1. Составить программу нахождения максимального элемента матрицы А (аi j): i = 1,2, ... , n; j = 1,2, ... , m. Элементы матрицы заданы. Исходные данные: m = 3; n = 4

[123_]

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  m = 3;
  n = 4;

var
  a: array [1 .. n, 1 .. m] of real;
  i, j: integer;
  max: real;

begin
  max := a[1, 1];
  a[1, 1] := -12.6;
  a[1, 2] := -1.3;
  a[1, 3] := 2;
  a[2, 1] := 3;
  a[2, 2] := 22;
  a[2, 3] := -43;
  a[3, 1] := 24;
  a[3, 2] := -4.1;
  a[3, 3] := 1.2;
  a[4, 1] := 25.6;
  a[4, 2] := 1.3;
  a[4, 3] := 4.8;
  writeln('Ishodnay matrica = ');

  begin
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(a[i, j]:3:2, '   ');
      writeln;
    end;
  end;

  begin
    for i := 1 to n do
    begin
      for j := 1 to m do
      begin
        if a[i, j] > max then
          max := a[i, j];
      end;
    end;
  end;
  writeln('Maksimalniy element = ', max:3:3);
  readln;

end.