Question

Ввести последовательность чисел, количество которых заранее неизвестно. Признаком окончания ввода последовательности чисел является ввод числа, меньшего суммы предыдущих чисел. Вычислить произведение положительных чисел последовательности.
Пример ввода: -2, -10, 3, 4, -6
Ожидаемый результат: 12

Answer 1

Ответ:

Пример ввода: -10, -2, 3, 4, -6

Ожидаемый результат: 12

Объяснение:

var

 a: array of integer;  

 i, pr: integer;

begin

 readln(i);

 SetLength(a, 1);

 pr:=1;

 while (i > a.Sum) or (a.Length=1) do begin

   SetLength(a, a.Length+1);

   a[a.Length-2]:=i;

   if i>0 then pr*=i;

   readln(i);

 end;

 SetLength(a, a.Length-1);

 println(a);

 println(pr);

end.