массив

[Dog]

в одномерном массиве ,состоящем из n целочисленных элементов вычеслить:
произведение элементов массива с чётными номерами

[Serj0987]

На Pascal
var a:array of integer;
i,pr,n:intehger;
begin
pr:=1;
// сюда поместить код ввода n
SerLength(a,n);
// сюда поместить код заполнения массива
for i:=0 to ((n-1) div 2) do
pr:=pr*a[i*2];
//сюда вывод результата
end;

[Dog]

спасибо)))))