5. Дан двумерный массив целых чисел. Составить программку, которая определяет, есть ли

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');

 Writeln('*** Начальный массив ***');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 Writeln(4 * a.ColCount * '-');

 var nCol := ReadInteger('В каком столбце разыскиваем?');

 var C := ReadInteger('На кратность чему проверить?');

 if a.Col(nCol - 1).Any(t -gt; t mod C = 0) then

   Writeln('Есть такие элементы')

 else Writeln('Таких частей нет')

end.