Заполнить массив v(7,7) целыми случайными числами из интервала [-15,15]. распечатать его. - найти произведение элементов третьей строки и количество элементов больших, этого произведения - найти и распечатать максимум в 3 столбце массива.

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var v: =matrrandom(7,7,-15,15);   v.println(4); writeln(4*v.colcount*'-');   var pr3: =v.row(2).aggregate(1,(x,y)-> x*y);   writeln('произведение элементов 3-й строки равно ',pr3);   writeln('количество элементов, больших этого произведения, равно ',           v.elementsbyrow.where(t-> t> pr3).count);   writeln('максимум в 3-м столбце равен ',v.col(2).max) end. пример *** исходный массив ***   -4 -12 -15  -2  13    3 -15   -7  -1 -15    2  -2    4  -6   14    5    5  15  -4    3    0   13  15    9  14  11  -9  11     1  14  14    1  -4  -1  -7   15 -10 -13  -3  -8 -12  11     0 -13  -8    4    6    1 -11 произведение элементов 3-й строки равно 0 количество элементов, больших этого произведения, равно 24 максимум в 3-м столбце равен 14

// pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! begin var v: =matrrandom(7,7,-15,15); v.println; var com: = v.row(2).aggregate(biginteger(,y)-> (x*y)); writeln('произведение эл-в 3ей строки = ', com); var cnt : = 0; foreach var x in v.row(2) do   if x > com then inc(cnt); writeln('количество элементов, больших чем это произведение = ', cnt); writeln('максимальный элемент 3го столбца = ', v.col(2).max); end. пример:       2  -4 -15  10  -1    2    6   15  -8  11    5  14  10  15     0  15 -10  13  -8 -13  14   14    6  13 -10    9    6 -12   -14    1    8  -9    1 -12  12   15    9  10  -7 -14    6  -3     9    9  -1 -14    1    1    3 произведение эл-в 3ей строки  = 0 количество элементов, больших чем это произведение = 3 максимальный элемент 3го столбца = 13 *****правил*****

16кб = 16384 байт =  131072 бит