Вопрос по информатике:
Дан массив R(M,N). Заменить в массиве все положительные элементы на 0, а отрицательные на 1. Посчитать количество нулей и единиц .
Пожаловаться
- 18.08.2017 03:18
- Информатика
- remove_red_eye 3730
- thumb_up 40
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Результат ***');
a.Transform(x->x>=0?0:1); a.Println(4);
var s:=a.ElementsByRow;
Writeln('Нулей- ',s.Where(x->x=0).Count,', единиц- ',
s.Where(x->x=1).Count)
end.
Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 5
*** Исходный массив [4,5] ***
-19 61 -47 -38 -26
-95 -35 -56 43 40
0 -52 -87 -85 93
-68 48 -55 5 -93
--------------------
*** Результат ***
1 0 1 1 1
1 1 1 0 0
0 1 1 1 0
1 0 1 0 1
Нулей- 7, единиц- 13
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('*** Результат ***');
a.Transform(x->x>=0?0:1); a.Println(4);
var s:=a.ElementsByRow;
Writeln('Нулей- ',s.Where(x->x=0).Count,', единиц- ',
s.Where(x->x=1).Count)
end.
Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 5
*** Исходный массив [4,5] ***
-19 61 -47 -38 -26
-95 -35 -56 43 40
0 -52 -87 -85 93
-68 48 -55 5 -93
--------------------
*** Результат ***
1 0 1 1 1
1 1 1 0 0
0 1 1 1 0
1 0 1 0 1
Нулей- 7, единиц- 13
Пожаловаться
- 19.08.2017 00:00
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы