Ответы на вопрос:
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('количество строк в массиве: '); var m: =readinteger('количество столбцов в массиве: '); writeln('*** исходный массив [',n,',',m,'] ***'); var a: =matrrandom(n,m,0,1); a.println(2); writeln(2*a.colcount*'-'); var b: =a.elementsbyrow.where(x-> x=1).toarray; var k: =b.count; b.println; writeln('k=',k) end. пример количество строк в массиве: 5 количество столбцов в массиве: 12 *** исходный массив [5,12] *** 0 0 1 1 1 1 1 1 0 0 1 0 0 1 1 1 0 0 1 1 1 0 1 0 1 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0 1 0 1 1 1 1 0 1 1 0 1 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 k=29
Популярно: Информатика
-
mmrkrolik18.09.2022 06:22
-
klikedfrite02.09.2020 03:46
-
Кооооотттт17.12.2022 13:49
-
yarlev8825.01.2022 05:41
-
qwerty5432124.03.2021 09:49
-
AlexCh118.02.2022 01:51
-
Димасик201713.05.2023 02:11
-
Darvin200420.10.2021 17:52
-
sw32120.03.2022 10:34
-
katya091306.11.2022 15:45