Ответы на вопрос:
//pascal abc.net v3.1 сборка 1172 const n=10; var ar: array[1..n] of real; i: integer; k: real; begin randomize; writeln('first array: '); for i: =1 to n do begin ar[i]: =random(100); write(ar[i]: 4); end; k: =ar[2]; for i: =1 to n do ar[i]: =ar[i]/k; writeln; writeln('final array: '); for i: =1 to n do writeln(ar[i]); end.
Популярно: Информатика
-
jiohjb15.05.2021 09:48
-
Yakubovadiana21.07.2021 07:31
-
mishel788423.11.2020 03:16
-
roleman07.01.2022 14:07
-
Pifpafff06.02.2021 22:13
-
krasnyukova130.11.2022 10:43
-
niznaika888888888830.05.2020 06:27
-
polina15060620.08.2022 14:41
-
koooooooooo22.03.2020 13:49
-
neketos54p0cc9j05.04.2022 05:22