Ввести массив целых чисел, который в заранее не известен

Ввод чисел заканчивается, когда сумма введенных чисел становится больше заданного числа

Получить произведение элемента производного массива.

Question

Информатика

Симеон

8 февраля, 05:23

Ввести массив целых чисел, который в заранее не известен

Ввод чисел заканчивается, когда сумма введенных чисел становится больше заданного числа

Получить произведение элемента производного массива.

+5

Ответы (2)

Знаете ответ на вопрос?

Матильда · Answer 1

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.

Амата · Answer 2

Var

A, S, P, M:real;

Begin

WriteLn ('Введи число') ;

ReadLn (M) ;

S:=0;

P:=1;

WriteLn ('Введи массив чисел') ;

Repeat

ReadLn (A) ;

S:=S+A;

P:=P*A;

Until S>M;

WriteLn ('Произведение элементов равно ', P) ;

WriteLn ('Сумма элементов равна ', S) ;

End.