Ввести массив целых чисел,который в заранее не известен
Ввод чисел заканчивается,когда сумма введенных чисел становится больше заданного числа
Получить произведение элемента производного массива.
Const
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
