Question

Решить в паскале
Найти (условие А) матрицы. Матрица произвольная
Количество отрицательных не кратных 3 элементов

Answer 1

// 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 элемента(ов)