Ответы на вопрос:
Uses crt; type mas = array [1.. 8, 1.. 8] of integer; var m: mas; i,j,k: integer; a: array[1..28]of integer; begin randomize; for i: =1 to 8 do begin for j: =1 to 8 do begin m[i,j]: =random(190)-95; write(m[i,j]: 4); end; writeln; end; for i: =1 to 8 do for j: =1 to 8 do if i> j then begin k: =k+1; a[k]: =m[i,j]; end; writeln; for i: =1 to 28 do write(a[i]: 4); end.
Популярно: Информатика
-
akimkryt4220.02.2020 09:04
-
gei22815.10.2021 12:26
-
timatima322.09.2022 05:46
-
Cfynks22.03.2021 08:17
-
Hskke18.10.2020 22:39
-
geniip28.03.2022 17:21
-
tsukikokawaii20.04.2023 11:30
-
123Abc990028.11.2020 10:43
-
Vasyliev28.11.2021 18:55
-
сумбэльсофаникита01.02.2020 07:12