Вопрос по информатике:
Определить номера строк матрицы rmatr[n, m], в которых знаки элементов
чередуются.
В среде программирования PascalABC.NET
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 08.11.2017 06:46
- Информатика
- remove_red_eye 10464
- thumb_up 39
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*m*'-');
var s:='';
for var i:=0 to n-1 do
if a.Row(i).Pairwise.Select(t->Sign(t[0])Sign(t[1])).All(t->t=True) then
s+=(i+1)+' ';
if s.Length=0 then Writeln('Нет искомых строк')
else Writeln('Номера строк: ',s)
end.
Пример
Количество строк и столбцов в матрице: 10 5
*** Исходная матрица ***
-27 90 57 3 -62
35 -92 -54 36 17
-57 -32 -31 85 84
22 -82 -42 -26 87
-69 75 -26 -88 7
-76 -60 -73 35 45
94 66 95 -85 -40
83 -60 59 -56 49
-81 -53 67 11 -9
-39 -73 67 -49 91
--------------------
Номера строк: 8
- 09.11.2017 20:40
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.