Ответы на вопрос:
// pascalabc.net 3.0, сборка 1088 const n=9; m=7; var a: array[1..n,1..m] of integer; b: array[1..n] of boolean; i,j,k: integer; begin randomize; writeln('*** исходный массив ***'); for i: =1 to n do begin k: =0; for j: =1 to m do begin a[i,j]: =random(225)-112; write(a[i,j]: 5); if a[i,j]< 0 then inc(k) end; writeln; b[i]: =k> 3 end; writeln('*** строки, содержащие больше 3 отрицательных элементов ***'); for i: =1 to n do if b[i] then write(i,' '); writeln end. тестовое решение: *** исходный массив *** 89 -71 36 -25 -19 60 -28 -60 -35 20 112 -69 29 74 4 -23 -7 -15 107 64 -4 -82 91 102 -90 81 32 -64 41 -44 21 74 77 -77 -100 -38 -36 100 5 -42 54 46 -52 27 -86 -77 90 30 -2 -76 -14 -58 11 67 -91 59 -50 47 -47 12 -84 -76 11 *** строки, содержащие больше 3 отрицательных элементов *** 1 3 7 8 9
Популярно: Информатика
-
stockmen16.03.2021 10:03
-
natali030303nat04.03.2021 08:02
-
ната581029.12.2021 07:41
-
hopelless212424.06.2021 12:11
-
saddddddd0325.03.2023 12:54
-
sof07080830.08.2020 08:16
-
МагистрЕдаа15.11.2022 01:16
-
Over00312.08.2022 15:01
-
kpopersha1301.01.2021 19:35
-
оля202918.02.2023 03:57