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

Question

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

Answer 1

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

Answer 2

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.

Comments

Да, Pascal ABC

---

Нет, по условию он только вводится=))

---

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

---

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

---

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

---

=D