Question

Написать программу поиска произведения последовательности отрицательных чисел, вводимых с клавиатуры, предшествующих первому введенному нулю. Контрольный пример: 1,2,3,-4,5,-2,0. Delphi либо Pascal.

Answer 1

Ответ:

var b:array[1..100] of integer;

i,p:integer;

begin

p:=1;

repeat

inc(i);

readln(b[i]);

until b[i]=0;

for var j:=1 to i do

begin

if b[j]<0

then p:=p*b[j];

end;

writeln(p);

end.

Объяснение:

Pascal