Ребят помогите) заполните массив случайными числами напишите программу вычисления значение y=x[1]* x[2] *x[3] *x[n]
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад