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