Решить в Pascal:

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

Question

Информатика

Филюша

21 февраля, 11:25

Решить в Pascal:

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

+3

Ответы (1)

Знаете ответ на вопрос?

Зинка · 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.

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

Решить в Pascal:

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