Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк(столбцов) в матрице: '); writeln('*** исходная матрица ***'); var a: =matrrandom(n,n,1,2); a.println(2); writeln(2*n*'-'); for var i: =0 to n-1 do begin var p: =a[0,i]; if a.col(i).all(t-> t=p) then print(i+1) end; end. пример количество строк(столбцов) в матрице: 5 *** исходная матрица *** 2 1 2 2 2 1 1 2 2 1 2 1 2 1 2 1 1 2 2 2 2 1 1 2 1 2
Популярно: Информатика
-
olykylak255130.07.2022 10:00
-
yyeyheh03.06.2021 01:46
-
киска55555554422.07.2020 23:33
-
елелел108.02.2022 20:47
-
veta99128.01.2020 05:48
-
K1p2r4f427.01.2020 16:33
-
ymolyauy18.05.2022 21:57
-
лиза522204.05.2022 17:59
-
аzат12.01.2021 20:41
-
encl303.02.2020 18:07