Версия для печати темы

Автор: Gars 22.05.2007 5:01

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

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

Автор: мисс_граффити 22.05.2007 5:37

Не поняла прикола...
Ну ладно, раз проснулось желание заплатить - можешь кинуть денежку на счет форума.
http://forum.pascal.net.ru/index.php?showtopic=9779&hl=%F1%F7%E5%F2*

Автор: Слон 13.06.2007 16:19

Цитата(Gars @ 22.05.2007 1:01)

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.