{* Задача 3 *}

Unit ZADACH3;
Interface
Implementation
Begin
 writeln('Дана целочисленная прямоугольная таблица А[1:100, 1:50]. Найдите наибольшее из чисел, встречающихся в этой таблице. ');
End.

Program Task_13;

Uses zadach3.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Const {* Постоянные значения *}
  m = 10;
  n = 5;
Var {* Объявление переменных *}
  a   : Array [1..m, 1..n] Of integer;
  i   : byte;
  j   : byte;
  Max : integer;
Begin
  ClrScr; {* Очистка экрана *}
  Randomize;
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
      a[i, j] := Random(30) - 10;
  Max := a[1, 1];
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
      If a[i, j] > Max Then
        MAx := a[i, j];
  Write('Максимальный элемент таблицы равен ', Max);
End.