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

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 матрица имеет нулевые элементы

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

логика, морзе, вектор, шина, дек, рунет, железо, терно, юзер, каретка, адаптер, браузер, цифра, образ, плата, эталон, сектор(стокер), зерно, утилита, файл, гамма, щелчок, чистка, иконка, ядро, ершов, хаб, набор