Ответы на вопрос:
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.
Популярно: Информатика
-
magakhass13.11.2020 20:14
-
Munas03.06.2023 22:18
-
NastyaK2714.09.2020 13:25
-
жека56918.03.2022 04:49
-
rasimfanov24.07.2020 23:36
-
DeadAsted23.06.2022 11:10
-
Alino4ka5825810.08.2020 16:16
-
DillonVIP12.12.2021 18:59
-
bufo201213.12.2022 21:16
-
liza10pav28.11.2021 21:51