4.15

//Задание 4.15 Кучеренко
const m = 4;

Begin

  var
    n: integer;
  var
    T: array[0..100,0..100] of integer;
  write('Vvedite n: ');
  readln(n);

  writeln('Vvedite dannie v massive T(', m, ',', n, '):');
  var i, j: integer;
  for i := 0 to m-1 do
  begin
    for j := 0 to n-2 do
      read(T[i][j]);
    readln(T[i][n-1]);
  end;

  var max: integer;
  if m > n then
    max := m
  else max := n;


  var maxPositive: integer;
  maxPositive := 0;
  for i := 0 to max do
    if T[i][i] > 0 then
      if T[i][i] > maxPositive then
        maxPositive := T[i][i];

  writeln('Naibolshij polozhitelnij element glavnoj diagonali = ', maxPositive);

end.