1) Массив из 25 элементов задан генератором случайных чисел в диапазоне от : - 20 до + 20. Найти среднее арифметическое чисел. 2) Найти минимальный элемент. 3) Найти сумму элементов, стоящих на чётных индексах imod 2=0.

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.