Ответы на вопрос:
//pascal abc.net v3.0 var ma: array of array of integer; i,j,s,m: integer; begin randomize; readln(m); setlength(ma,m+1); for i: =1 to m do setlength(ma[i],m+1); writeln('matrix: '); for i: =1 to m do begin; writeln; for j: =1 to m do begin; ma[i,j]: =random(-30,40); write(ma[i,j]: 4); end; end; for i: =1 to m do for j: =i+1 to m do s+=ma[i,j]; writeln; writeln('result: ',s); end.
Популярно: Информатика
-
рома132514.06.2020 19:55
-
Nadezhda13629.08.2022 08:43
-
samruk197418.12.2020 04:46
-
snowprincss14.10.2022 11:35
-
Лерочка280603.04.2023 14:00
-
цыувкаерн16.09.2021 17:31
-
Arina20044426.04.2022 05:44
-
Ксения20316.11.2021 13:38
-
SSultanShaS18.09.2021 02:27
-
Yanas706.06.2020 07:03