Вопрос по информатике:
Решить в паскале
Найти (условие А) матрицы. Матрица произвольная
Количество отрицательных не кратных 3 элементов
Пожаловаться
- 24.03.2018 19:30
- Информатика
- remove_red_eye 13206
- thumb_up 27
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях работа не гарантируется!
begin
var m:=ReadInteger('Число строк матрицы');
var n:=ReadInteger('Число столбцов матрицы');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
var k:=0;
foreach var x in a do
if (x<0) and (x mod 30) then k+=1;
Writeln('Условию "А" удовлетворяют ',k,' элемента(ов)')
end.
Пример
Число строк матрицы 6
Число столбцов матрицы 9
-39 14 25 21 -17 47 -15 -20 24
20 42 -10 14 -44 42 14 -18 30
-27 -2 1 -29 3 -25 12 40 -38
45 24 3 18 40 -32 -33 -23 -11
34 -49 40 24 -11 46 11 34 -47
26 5 -40 40 -41 -39 -15 30 11
Условию "А" удовлетворяют 16 элемента(ов)
// Внимание! В других версиях работа не гарантируется!
begin
var m:=ReadInteger('Число строк матрицы');
var n:=ReadInteger('Число столбцов матрицы');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
var k:=0;
foreach var x in a do
if (x<0) and (x mod 30) then k+=1;
Writeln('Условию "А" удовлетворяют ',k,' элемента(ов)')
end.
Пример
Число строк матрицы 6
Число столбцов матрицы 9
-39 14 25 21 -17 47 -15 -20 24
20 42 -10 14 -44 42 14 -18 30
-27 -2 1 -29 3 -25 12 40 -38
45 24 3 18 40 -32 -33 -23 -11
34 -49 40 24 -11 46 11 34 -47
26 5 -40 40 -41 -39 -15 30 11
Условию "А" удовлетворяют 16 элемента(ов)
Пожаловаться
- 25.03.2018 14:03
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы