// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях работа не гарантируется!
begin
var m:=ReadInteger('Число строк матрицы');
var n:=ReadInteger('Число столбцов матрицы');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
var k:=0;
foreach var x in a do
if (x<0) and (x mod 3<>0) then k+=1;
Writeln('Условию "А" удовлетворяют ',k,' элемента(ов)')
end.
Пример
Число строк матрицы 6
Число столбцов матрицы 9
-39 14 25 21 -17 47 -15 -20 24
20 42 -10 14 -44 42 14 -18 30
-27 -2 1 -29 3 -25 12 40 -38
45 24 3 18 40 -32 -33 -23 -11
34 -49 40 24 -11 46 11 34 -47
26 5 -40 40 -41 -39 -15 30 11
Условию "А" удовлетворяют 16 элемента(ов)