QBASICЗадана матриця K(N,L) Знайти кількість відємних, кратних трьом елементів.Заданная матрица K (N, L) Найти количество отрицательных, кратных трем элементов.
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
Не нашли ответ?
Похожие вопросы