Ответы на вопрос:
// pascalabc.net 3.0, сборка 1128 function sum(a: array of real): real; begin result: =0; foreach var x in a do if x> 10 then result+=x end; procedure half(a: array of real); begin var s: =sum(a)/2; for var i: =0 to a.length-1 do a[i]/=s end; procedure printrealarray(a: array of real); begin foreach var x in a do write(x: 0: 3,' '); writeln end; begin var n: =readinteger('количество элементов массива: '); var p: =arrrandomreal(n,0,20); writeln('исходный массив'); printrealarray(p); half(p); writeln('результирующий массив'); printrealarray(p) end. тестовое решение: количество элементов массива: 10 исходный массив 2.835 3.159 11.777 19.562 1.392 8.941 15.501 14.392 7.945 12.443 результирующий массив 0.077 0.086 0.320 0.531 0.038 0.243 0.421 0.391 0.216 0.338
Популярно: Информатика
-
alinamalinachka01.04.2022 23:08
-
0000201727.02.2021 00:53
-
karolina00000013.07.2020 13:26
-
agentponomarev616.05.2022 23:18
-
regroom21.09.2021 15:06
-
Taras22908.05.2021 02:36
-
пргремм605.05.2022 20:16
-
крымнаш31.03.2023 02:59
-
SpiritAlice26.03.2022 23:39
-
mimimi05522.03.2023 08:35