Решить в Pascal: Найти произведение, сомножители которого представлены каждым третьим...

Question

Решить в Pascal:

Найти произведение, сомножители которого представлены каждым третьим членом: X1, X4, X7, и т. д. - заданного массива X1, X2, ..., Xn.

Comments

массив имеет ограничения?

Answer 1

Var a: array [1..200] of integer;
i, j, q, a1: integer;
begin
Writeln('Kakoi dlini massiv?');
Readln(q);
for i:=1 to q doReadln(a[i]);
a1:=a[1];
j:=1;
while j<=q do<br>beginj:=j+3;
a1:=a1*a[j];
end;
Writeln(a1);
end.

Comments

Сори сглупила, a1:=a1+a[j]; замени на a1:=a1*a[j];

---

Все не нужно, сама исправила)