С клавиатуры вводится число n,а за ним-массив из n элементов.Найдите и выведите на экран произведение всех положительных элементов массива с чётными индексами.

=)))

хорошо когда - раз решаешь )) и решение сохраняется )))

var  a: array[1..100] of integer;  i, n: integer;  p: integer;   begin  randomize;  writeln('massiv: ');  readln(n);  for i := 1 to n do   a[i] := random(10) - 5;  writeln('Исходный массив: '); for i := 1 to n do  write(a[i], ' ');  p:=1;  for i := 1 to n do     if (a[i]>0) and (i mod 2=0) then p:=p*a[i];      writeln('Произведение  =',p); readln.  end._____________________________

Var A,P:real;N:integer;BeginP:=1;Write('N = ');ReadLn(N);WriteLn('Введи массив');For N := 1 to N doBeginReadLn(A);if (N mod 2 = 0)and(A>0) then P:=P*AEnd;WriteLn(P)End.