Задача на Паскаль

[WitaliG]

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

Var  a :array[1..10] of integer; i,p :integer;
begin
    randomize;
    for i :=1 to 10 do
    begin  a[i] :=-5 + random(20); write(a[i]:4) end;
    while a[i] <> 0 do
    begin if a[i] <> 0 then p := p*a[i]  end;
    Writeln('Произведение элементов массива до первого нуля= ',p);     Readln;     End.

Мой код совсем не хочеть считать?!
С уважением Виталий.

[unbanned]

возможно в массив ноль не попадает))

var
  a: array [1..10] of integer;
  i, p: integer;

begin
  randomize;
  for i := 1 to 10 do
    a[i] := random(30);
  a[random(10)+1] := 0;
  i := 1;
  p := 1;
  while (a[i] <> 0) and (i<=10) do 
  begin
    p := p * a[i];
    i := i + 1;
    if i>10 then break;
  end;
  if a[1]=0 then p:=0;
  writeln(p);
end.

а вот кстати твой исправленный:

Var  a :array[1..10] of integer; i,p :integer;
begin
    randomize;
    for i :=1 to 10 do
    begin  a[i] :=-5 + random(20); writeln(a[i]:4) end;
    i:=1;
    p:=1;
    while (a[i] <> 0) and (i<=10) do begin p := p*a[i];
    i:=i+1;
    end;
    if a[1]=0 then p:=0;
    Writeln('Произведение элементов массива до первого нуля= ',p);     Readln;     End.

[WitaliG]

Большое спасибо

[WitaliG]

Вчера уже было поздно, а сегодня на работу, поэтому я поблагодарил unbanned, а код не смотрел.
Сегодня у меня компилятор пишет по последнему варианту:"Ошибка времени выполнения: Индекс находился вне границ массива." Причем один раз пишет эту запись, а другой раз код решает задачу правильно?!
Вопрос: Что означает эта запись?!

[GetMax]

"Ошибка времени выполнения: Индекс находился вне границ массива." Что означает эта запись?!

Эта значит что фактически массив закончился. А условие выхода из цикла не выполнилось. Попробуйте переделать так

Var
  a :array[1..10] of integer;
  i:byte;
  p:Real;
begin
    randomize;
    for i :=1 to 10 do
    begin
      a[i] :=-5 + random(10);
      writeln(a[i]:4)
    end;
    i:=1;
    p:=1;
    For i:=1 to 10 do
    Begin
      If a[i] <> 0 then p:=p*a[i]
      Else
      If a[i] = 0 then
      Break
    End;
    If A[1] = 0 then Writeln('Произведение = 0')
    Else
    Writeln('Произведение элементов массива до первого нуля= ',p:3:0);
    Readln;
End.

[WitaliG]

Спасибо GetMax Ваш вариант работает четко. Спасибо.
С уважением Виталий.

[WitaliG]

Спасибо GetMax Ваш код работает четко. Спасибо.
С уважением Виталий.

[unbanned]

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

:"Ошибка времени выполнения: Индекс находился вне границ массива."

да, в своем коде учел... а в исправленом - нет. прошу прощения