Произведение чисел последовательности

[tolyanl1985]

Братцы, помогите плиз на паскале задачку решить, кантроху через неделю здавать запарился уже!


Дана последовательность неотрицательных чисел, последнее из которых равно нулю, причём других равных нулю чисел в последовательности нет. Вычислить произведение положительных чисел этой последовательности.


Заранее огромное спасибо!!!

program Posledovatelnost; 
var 
a,b:integer; 
begin 
Writeln('Введите через пробел последовательность положительных чисел, окончание ввода "0"'); 
read(a); 
b:=1; 
while a<>0 do begin 
if a>0 then b:=b*a; 
read(a); 
end; 
if b<>1 then writeln('Произведение положительных чисел последовательности = ',b) 
else writeln('В последовательности кроме нуля нет элементов'); 
end.

Помогите пожалуйста!!!

[phomm]

Могу посоветовать заменить Read на ReadLn , ну, и тогда не пробелом отделять, а каждый раз энтером новое число вводить.

[tolyanl1985]

Тоже самое будет, дело в том что он не считает когда в последовательности идёт только 1 и 0, остальное считает правильно

[phomm]

Ну, так, естественно. Если условие заканчивает ввод по нулю, а при единицах произведение равно единице, которое у Вас показатель , что вообще ещё никакое число не было введено.
Мой совет - введите под признак введения чисел иную переменную, чем для накопления результата умножения.

[ViktorR]

Что-то не очень ясен вопрос.
Отмечу, что в задании не говорится, что последовательность состоит из целых чисел. Т.о. можно и так:

program Posledovatelnost; 
var 
a,b:real;
n: integer;

begin 
   Writeln('Вычисляем произведение положительных чисел.'); 
   a := 1; b:=1; n := 0;
   while a<>0 do
   begin 
      Writeln('Введите положительное число. Окончание ввода "0"'); 
      readln(a);
      if a>0 then
      begin
         b:=b*a;
         n:=n+1;
     end;
   end; 
   if (n > 0) then
   begin
      writeln('Введено ', n, ' чисел.');
      writeln('Произведение чисел = ',b:10:4);
   end 
   else
      writeln('В последовательности нет элементов.'); 
end.

Как-то так получилось ...

[tolyanl1985]

Огромное спасибо!!! Респект и уважуха