1)массив из 25 элементов задан генератором случайных чисел в диапазоне от : -20 до +20. найти среднее арифметическое чисел.2)найти минимальный элемент.3)найти сумму элементов,стоящих на чётных индексах imod 2=0.
265
308
Ответы на вопрос:
Const n = 25; var a: array[1..n] of real; i, j: integer; min, max: real; sum, product, harmonic: real; begin {ввод массива} writeln('данные массива: '); for i : = 1 to n do begin a[i] : = random(40) - 20; write(a[i], ' '); end; writeln(); {подсчет суммы и произведения и агригатов} sum : = 0; for i : = 1 to n do sum : = sum + a[i]; writeln('average = ', sum / n); {минимум и максимум} min : = a[1]; for i : = 1 to n do if min > a[i] then min : = a[i]; writeln('min = ', min); {подсчет суммы и произведения и агригатов} sum : = 0; for i : = 1 to n do if i mod 2 = 0 then {если нужен фильтр} sum : = sum + a[i]; writeln('sum = ', sum); end.
Популярно: Информатика
-
novkov64180007.03.2021 10:47
-
mirt1030.09.2022 14:12
-
Котеика1космос15.10.2021 14:05
-
Lily56625.06.2021 14:55
-
mrmersbrady18.01.2023 13:32
-
емдетей31.12.2021 01:15
-
zima21zima20.03.2023 01:36
-
Ωμza19.11.2022 13:53
-
Цωετοζεκ07.05.2023 09:27
-
aliko70507.08.2022 11:54