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

Формулировка задачи:

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

Код к задаче: «Заполнить массив Y произведениями соседних трех элементов массива X - Turbo Pascal»

textual
Const N=10;
type Mas=Array[1..N]Of Integer;
var i: integer;
    Y,X:Mas;
 
Procedure Vyvod(Var massiv:Mas);
Var i:Integer;
Begin
     For i:=1 To N Do Write(massiv[i]:5);
     Writeln;
End;
 
BEGIN
  For i:=1 To N Do X[i]:=Random(10)+1;
  Write('massiv X: '); Vyvod(X);
  For i:=2 To N-1 Do Y[i]:=X[i]*X[i-1]*X[i+1];
  Y[1]:=Y[2]; Y[N]:=Y[N-1];
  Write('massiv Y: '); Vyvod(Y);
  Readln;
END.

13   голосов, оценка 3.538 из 5


СОХРАНИТЬ ССЫЛКУ