Question

Решить в Pascal:

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

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
beginj:=j+3;
a1:=a1*a[j];
end;
Writeln(a1);
end.