QBASICЗадана матриця K(N,L) Знайти кльксть вдмних, кратних трьом елементв.Данная
QBASIC
Задана матриця K(N,L) Знайти кльксть вдмних, кратних трьом елементв.
Данная матрица K (N, L) Отыскать количество отрицательных, кратных трем элементов.
1 ответ
Павел
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]lt;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
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]lt;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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов