Ребят помогите) заполните массив случайными числами напишите программу вычисления значение y=x[1] * x[2] * x[3] * x[n]

Question

Информатика

Родион

14 февраля, 02:13

Ребят помогите) заполните массив случайными числами напишите программу вычисления значение y=x[1] * x[2] * x[3] * x[n]

+5

Ответы (1)

Знаете ответ?

Василия · Answer 1

Var X:array of integer;

n, i, Y : integer;

begin

randomize;

Y:=0;

write ('введите размер массива ') ;

readln (n) ;

Setlength (X, n) ;

for i:=0 to N-1 do begin

X[i]:=random (100) ;

Y:=Y+X[i];

end;

writeln ('y = ', y) ;

end.