ПАСКАЛЬ 8 КЛАСС!!СРОЧНО!
С клавиатуры вводится число n, а за ним - массив из n элементов. Найдите и выведите на экран произведение всех положительных элементов с чётными индексами.

...

Так, конечно, наглядней, но для понимания тяжелее...

(.........

Соединила оба ваши решения и вышло верно)

=D

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.