Ответы на вопрос:
// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! 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-> 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
Популярно: Информатика
-
djekichan12316.11.2020 19:51
-
Саша111111121111117.10.2021 07:20
-
tanya73226.08.2022 04:20
-
алана2426.05.2022 10:54
-
mishazhidkov207.06.2020 11:04
-
vseznaika2930.09.2021 02:52
-
Maryyy10023.10.2022 06:25
-
Odessey2001126.04.2022 08:47
-
Лера56500925.10.2021 23:20
-
Hjlüüä30.03.2021 21:50