Помогите решить задачу Опции

[Gars]

Помогите пожалуйста решить задачу, сам я в этом не понимаю, вот она:
Дан массив из 10 элементов, найти произведение всех не нулевых элементов

ЗЫ: Зарание спасибо!

[мисс_граффити]

Не поняла прикола...
Ну ладно, раз проснулось желание заплатить - можешь кинуть денежку на счет форума.
Счета форума

[Слон]

Помогите пожалуйста решить задачу, сам я в этом не понимаю, вот она:
Дан массив из 10 элементов, найти произведение всех не нулевых элементов
ЗЫ: Зарание спасибо!

Если pascal, то

var
   a:array [1..99] of integer;
   i, prod, len:integer;
begin

   len:=0;
   while not eoln do
      begin      
         len:= len + 1;
         read (a[len]);
      end;

   prod:=1;
   for i:=1 to len do
   begin
      if a[i] <> 0 then 
         prod:= prod * a[i];
   end;

   writeln ('Произведение равно', prod);
end.