Заполнить массив Y произведениями соседних трех элементов X.

2 4 3 2 1 3 X

24 6 Y

Question

Информатика

Руслан

4 апреля, 19:16

Заполнить массив Y произведениями соседних трех элементов X.

2 4 3 2 1 3 X

24 6 Y

+1

Ответы (1)

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

Маримьянка · Answer 1

Program F777;

var

X, Y:array[1 ... 102] of integer;

mult, i, j:integer;

begin

for i:=1 to 6 do

readln (x[i]) ;

j:=1; i:=1;

mult:=1;

while i<=6 do

begin

mult:=mult*X[i];

if i mod 3 = 0 then

begin

Y[j]:=mult;

mult:=1;

j+=1;

end;

i+=1;

end;

for i:=1 to 6 do

writeln (y[i]) ;

end.

Заполнить массив Y произведениями соседних трех элементов X.2 4 3 2 1 3 X24 6 Y

Заполнить массив Y произведениями соседних трех элементов X.

2 4 3 2 1 3 X

24 6 Y