Ответы на вопрос:
Const nx = 20; mx = 20; var a: array[1..nx,1..nx] of real; i,j,n,m: integer; sum: real; begin write('введите размер матрицы'); read(n); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: = random()*100 -50; write(a[i,j]: 9: 4); end; writeln; end; writeln; writeln; for i: =1 to n do begin for j: =1 to n do beginif i < j then begin write(a[i,j]: 9: 4); sum: =sum + a[i,j]; end else write(' ': 9); end; writeln; end; write('сумма = ',sum); end.
Популярно: Информатика
-
альбина33018.09.2021 23:09
-
SoniaSS0922.06.2021 10:40
-
ДашаКотик200724.04.2020 08:09
-
bpanvk114.08.2022 09:03
-
Андрей2211111103.01.2020 11:06
-
a4m4u4r422.06.2023 01:52
-
dimabolnygin27.11.2021 06:10
-
DashaKarg322.01.2023 04:37
-
tanyaraeva201715.09.2020 00:56
-
kotenok8810.04.2021 19:16