Ввести массив целых чисел,который в заранее не известен
Ввод чисел заканчивается,когда сумма введенных чисел становится больше заданного числа
Получить произведение элемента производного массива.
Ввод чисел заканчивается,когда сумма введенных чисел становится больше заданного числа
Получить произведение элемента производного массива.
More Questions From This User See All
Answers & Comments
n=10000;
var
b:array[1..n] of integer;
a,s,p,i:integer;
begin
readln(a);
i:=1;
p:=1;
s:=0;
while s<=a do
begin
readln(b[i]);
s:=s+b[i];
p:=p*b[i];
i:=i+1;
end;
writeln('Произведение элементов = ',p);
end.