Qbasic задана матриця k(n,l) знайти кількість відємних, кратних трьом елементів. заданная матрица k (n, l) найти количество отрицательных, кратных трем элементов.

Const
  N = 5;
  L = 8;

var
  K: array[1..N, 1..L] of integer;
  i, j, p: integer;

begin
  Randomize;
  for i := 1 to N do
  begin
    for j := 1 to L do
    begin
      K[i, j] := random(100) - 50;
      write(K[i, j]:5);
    end;
    writeln
  end;
  p:=0;
  for i := 1 to N do
    for j := 1 to L do
      if (K[i, j]<0) and (K[i,j] mod 3=0) then p:=p+1;
  writeln('Найдено отрицательных элементов, кратных трем: ',p)
end.

Тестовое решение:

   27   42    0   25  -49   41  -16  -14
  -26  -29   27  -16   10  -16   17   18
   -4   10   17  -26   45  -23   48  -44
  -47   28   25   -1  -31   24   35  -47
  -39   49  -48   29  -42    2   -6   32
Найдено отрицательных элементов, кратных трем: 4