Массив и произведение.

[amfikxxx]

Всем здрасте.
вообщем сумму отрецательных элементов найти могу,проходил.
а как найти произведение отрицательных не знаю попалась одна,"есть массив b(10) найти произв. отрецательных элем."
как сдесь будет расписываться?

Program amf;
var b;array[1..10] of integer;
hz hz
begin
for I:=1to10 do
begin
а дальше не знаю.вообщем неед халпб

[Slame]

Program amf;
var b;array[1..10] of integer;
i,s:integer;
begin
s:=1;
// ввод масивa 
for i:=1 to10 do
if b[i]<0 then s:=s*b[i];
Writeln(s);

Должно работать...

[Shift_sk]

Сообщение от Slame

Program amf;
var b:array[1..10] of integer;
i,s:integer;
begin
s:=1;
// ввод масивa 
for i:=1 to 10 do
if b[i]<0 then s:=s*b[i];
Writeln(s);

Должно работать...

правильно))

[amfikxxx]

где ввод масива //произвольные числа?
Задача так и должна записыватся?
Writeln('s=',s);
end.
да?

[Shift_sk]

var b:array[1..10] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 10 do
b[i]:=random(30)-15;
s:=1;
// ввод масивa 
for i:=1 to 10 do
if b[i]<0 then s:=s*b[i];
Writeln(s);
end.

[amfikxxx]

shift спасибо а если посчитать так -3/3/4/7/8/9/5/-5/9/7/
b[i]:=random(30)-15;без этого и без> randomize;

[Shift_sk]

var b:array[1..10] of integer;
i,s:integer;
begin

for i:=1 to 10 do
read(b[i]);
s:=1;
// ввод масивa 
for i:=1 to 10 do
if b[i]<0 then s:=s*b[i];
Writeln(s);
end.

[amfikxxx]

бАльшое Спасибо!) Shift_sk помоги с алгоритмом

[amfikxxx]

Ребятки хадп((

[Shift_sk]

непонел с каким алгоритмом?