QBASIC
5-9 класс
|
Задана матриця 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
Комментарий удален
Комментарий удален
Другие вопросы из категории
В в седьмой степани.
Program...
var...
begin
......
end.
Плиз хелпт!!!
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
зміна кодування тексту сторінки
заміна тексту на сторінці
зміна розміру шрифту тексту сторінки
пошук тексту на сторінці
налагодження якості друку та друкування документів
Читайте также
1.Даны два действительных числа A и B. Вывести первое число, если оно больше второго, и оба числа, если это не так.