Заполнить массив Y произведениями соседних трех элементов X. 2 4 3 2 1 3 X 24 6 Y
Заполнить массив Y произведениями соседних трех элементов X.
2 4 3 2 1 3 X
24 6 Y
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы