Заполнить массив из 10 элементов случайным образом вещественными значениями, лежащими в диапазоне от -50 до 50. найти сумму всех элементов массива. увеличить все элементы в 5 раз.
193
351
Ответы на вопрос:
//pascal abc.net v3.1 сборка 1219 const n=10; var ar: array[1..n] of integer; sum,i: integer; begin randomize; writeln('first array: '); for i: =1 to n do begin ar[i]: =random(-50,50); write(ar[i]: 4); sum: =sum+ar[i]; end; writeln; writeln('sum=',sum); writeln('final array: '); for i: =1 to n do begin ar[i]: =ar[i]*5; write(ar[i]: 6); end; end. пример работы программы: first array: 24 45 28 40 -48 -7 29 43 -23 18 sum=149 final array: 120 225 140 200 -240 -35 145 215 -115 90
Популярно: Информатика
-
DashaKhodenkova21.07.2022 15:33
-
igornagornov014.03.2022 11:59
-
Даниил535614.11.2022 06:57
-
Tribbl220109.07.2021 09:48
-
Asian2811.12.2020 00:05
-
anastasia20001215.09.2020 05:08
-
DarkZlo14.06.2021 09:15
-
mironovvladimir120.01.2020 13:14
-
sashabelousoydf1w16.05.2023 14:29
-
ЧеLOVEчек5153423.06.2022 03:01