Ответы на вопрос:
Const n=10; m=5; var s: real; i,j: integer; a: array[1..m,1..n]of real; begin writeln('исходный массив: '); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 6); end; writeln; end; s: =a[1,1]; for i: =1 to m do for j: =1 to n do a[i,j]: =a[i,j]/s; writeln('преобразованный массив: '); for i: =1 to m do begin for j: =1 to n do write(a[i,j]: 6: 3); writeln; end; end.
Популярно: Информатика
-
swetakorchagov29.08.2020 15:41
-
Lungeluna13.05.2023 09:12
-
zukhra908710.03.2020 13:26
-
Violetta010027.01.2021 02:33
-
maksCRAFTer24.02.2021 12:38
-
алпплла26.12.2022 17:16
-
aya12119.12.2021 15:32
-
mxitaryan7722.05.2020 19:12
-
rika06050119.03.2022 12:20
-
viva3201.03.2020 15:13