{* Двумерный массив *}

Unit MAX_MIN0;
Interface
Implementation
Begin
 writeln('Простейшая программа на двумерный массив, Вы вводите количество строк и столбцов, а программа выводит Вам массив, в котором показывает наименьшее (min) и наибольшее значение (max).');
End.

Program MAX_MIN;

Uses max_min0.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Предопределенные *}
  n = 15; {konstanta = 15}
Var {* Необходимые переменные *}
  m   : Array [1..n, 1..n] Of integer; {dvumerniy celochislenniy massiv, Array - opredelitel' massiva}
  min : integer;
  max : integer;
  a   : integer;
  b   : integer;
  y   : integer;
  i   : integer;
  p   : integer; {celochislennie tipi}
Begin
  1 :  clrscr; {* Очищаем экран *}
  textcolor(12); {cvet}
  writeln('ВВЕДИТЕ КОЛЛИЧЕСТВО СТРОК:');
  readln(a);
  writeln('ВВЕДИТЕ КОЛЛИЧЕСТВО СТОЛБЦОВ:');
  readln(b);
  randomize; {generator sluchainix chisel}
  For i := 1 To a Do {* Цикл для i => [1 .. a] *}
    For y := 1 To b Do {* Переменная y увеличивается с 1 до b *}
      m[i, y] := random(100); {vozvrashaey sluchainoe chislo}
  For i := 1 To a Do {* Цикл для i => [1 .. a] *}
  Begin
    For y := 1 To b Do {* Увеличиваем y от 1 до b с шагом 1 *}
      write (m[i, y] : 2, ' '); {interval}
    writeln; {* Пустая строка *}
  End;
  max := m[i, y];
  For i := 1 To a Do {cikl}
    For y := 1 To b Do {* Увеличиваем y от 1 до b с шагом 1 *}
      If maxm[i, y] Then {uslovie}
      Begin
        min := m[i, y];
      End;
  max := m[i, y];
  For i := 1 To b Do {* Увеличиваем i от 1 до b с шагом 1 *}
    For y := 1 To a Do {* Цикл для y => [1 .. a] *}
      If a = max Then
      Begin
        max := b; {uslovie}
      End;
  textcolor(white); {*  текст *}
  writeln('MAX:', max);
  writeln('MIN:', min);
  writeln; {* Пропускаем одну строку *}
  writeln ('ВЫХОД - 1, НАЧАТЬ ЗАНОВО - 2');
  readln(p);
  If (p = 1) Then
    exit
  Else Goto 1;
End.