Заполнить массив N чисел значениями и вывести на экран произведение элементов с чётными номерами.
Заполнить массив N чисел значениями и вывести на экран их среднее арифметическое

Отлично! Спс. (:

Пожалуйста

// PascalABC.Net 3.0, сборка 1052const  nn=100;var  a:array[1..nn] of integer;  p,s:longint;  i,n:byte;begin  Write('Введите количество элементов в массиве: '); Read(n);  Writeln('Вводите целочисленные элементы массива через пробел');  s:=0; p:=1;  for i:=1 to n do begin    Read(a[i]);    if i mod 2 = 0 then p:=p*a[i];    s:=s+a[i]  end;  Writeln('Произведение элементов с четными номерами: ',p);  Writeln('Среднее арифметическое элементов: ',s/n)end.Тестовое решение:Введите количество элементов в массиве: 10Вводите целочисленные элементы массива через пробел-4 6 11 8 12 21 7 13 9 -15Произведение элементов с четными номерами: -196560Среднее арифметическое элементов: 6.8