1дан одномерный массив найти колво отрицательных элементов. 2 дан двумерный массив определить есть ли в данном массиве элементы больше числа k . . паскаль
121
496
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! №1 begin var a: =arrrandom(readinteger('n=',50); a.println; writeln('количество отрицательных значений ',a.where(t-> t< 0).count); end. пример n= 15 3 39 3 2 43 43 -37 -2 -50 3 -25 15 -7 4 21 количество отрицательных значений 5 №2 begin var (m,n): =readinteger2('количество строк и столбцов в массиве: '); writeln('*** исходный массив ***'); var a: =matrrandom(m,n,-99,99); a.println(4); writeln(4*a.colcount*'-'); var k: =readinteger('k='); if a.elementsbyrow.any(t-> t> k) then writeln('есть') else writeln('нет') end. пример количество строк и столбцов в массиве: 5 8 *** исходный массив *** -9 48 -98 -35 -33 -29 44 -32 -33 -48 -62 11 45 53 52 90 -96 -1 68 -21 15 -72 -78 -28 44 15 -53 -33 -27 89 -60 -49 28 -73 -99 81 23 -9 -93 -66 k= 92 нет
Популярно: Информатика
-
Gaga111111124.08.2021 04:10
-
Colnkor20.11.2022 23:48
-
xxx15814.11.2022 04:37
-
nasamar15.11.2022 01:58
-
Qwiq05.01.2021 06:37
-
lalka13372207.08.2020 05:33
-
NastjaKucera1315.08.2020 23:53
-
rit223928.06.2021 04:39
-
aryuna200310.08.2020 13:25
-
Valeriya257631.08.2020 12:28