Ответы на вопрос:
Const n=4; var a: array[1..n,1..n] of integer; i,j,k: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(40)-20; write(a[i,j]: 4); end; writeln; end; k: =0; for i: =1 to n do if a[i,i]< 0 then k: =k+1; writeln('k = ',k); end. пример: исходный массив: 14 14 10 -18-12 6 -5 1 4 10 11 16 -2 -10 8 -7k = 1
Популярно: Информатика
-
Remrans29.12.2021 11:07
-
9Тимур111111112108.08.2022 03:23
-
bumar212.01.2021 05:57
-
ВладДвоичник200203.01.2020 19:21
-
hhhh3423.01.2021 13:25
-
dianaisaeva222.07.2021 16:45
-
zhenyakozyrkova12.11.2020 08:20
-
лол162119.10.2021 12:35
-
pavellolpanov18.08.2020 12:32
-
mokajuma7704.09.2020 18:19