1. дан двумерный массив размером 4*6 и заполненный целыми числами с клавиатуры. сформировать одномерный массив каждый элемент которого равен количеству элементов соответствующей строки, больше данного числа. 2. дан двумерный массив размером n*m, заполненный случайными числами. определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы. 3. заполнить массив размером 7*7 по правилу: 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 1 1 1 1 1 1 1 в паскале, )

//pascalabc.net версия 3.2, сборка 1417 //если программа не запускается, то обновите версию begin       var m : = matrrandom(readinteger('n ='), readinteger('m ='), 0, 9);       m.println();             {1}       writeln('количество элементов соответствующей строки');       var number : = readinteger('введите число, для проверки =');       var a : = m.rows.select(r -> r.count(x -> x > number));       a.println;             {2}       writeln('определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');       var b : = m.cols.select(r -> r.groupby(v -> v).count(g -> g.count() > 1));       b.println;       writeln(b.any(x -> x > 0));             {3}       writeln('заполнить массив');       var n : = 2 * max(m.rowcount, m.colcount) div 2 + 1;       m : = matrgen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);       m.println(); end.

нт