Информатика, опубликовано 2018-08-22 22:37:36 by Гость
Ребят помогите) заполните массив случайными числами напишите программу вычисления значение y=x[1]* x[2] *x[3] *x[n]
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на