Question

Дана целочисленная квадратная матрица 15. выяснить имеются ли в матрице нулевые элементы

Answer 1

Const
  n = 15;

var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
  HasNull: Boolean;

begin
  Randomize;
  writeln('Исходная матрица');
  HasNull := False;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) - 50;
      if a[i, j] = 0 then HasNull := True;
      write(a[i, j]:5);
    end;
    writeln
  end;
  if HasNull then writeln('Матрица имеет нулевые элементы')
  else writeln('Матрица не имеет нулевых элементов')
end.

Тестовое решение:

Исходная матрица
   16   23  -50   14  -44   15  -28    8   40  -43   -4   31  -11  -24  -15
   31  -37  -42    2   15   23   -8  -19   14  -35   -5  -30   41   11  -18
  -44   -3   30  -34   40   39   -7   -8   -6  -16   29  -11  -43   39   28
    5   37   42   46   13  -27  -39    2  -19  -45  -27   -8  -14   -2   11
   -6  -20   47    8  -49   48  -50  -28  -15   -4  -13   20   14  -32   35
  -17  -16   -8   35   10    7  -22   45   47  -41   45   45   -2  -39   17
   -3  -43   43   32   39   -2   -9   -1   37   29    4   15    7    0  -24
    2   -4  -17   -5   21   38   49    0   37  -47  -34  -15  -50   -2  -45
  -47    2  -40   18   48  -20   27   31  -21  -13   42   35    4  -45  -44
   42   20   -6   21    6   -2   11  -48  -10   28   -3    6  -45   29   22
  -38   -9  -50   32   26  -49    4   38    1   46   24   15  -46  -42   29
  -47   -5   -6   31  -39   -5   40  -21   41    7   -9   -1   20   39    1
   23   21  -48    6  -26    0   35   22  -21  -46  -12   32   42   24   32
   32    7   44   11   25  -49  -38  -26   17  -24  -28  -38  -42  -25  -16
    2   33   48  -50  -27  -47   13   -2   34  -22  -32   23  -35   26   22
Матрица имеет нулевые элементы

Answer 2

См. файл во вложении