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

[WitaliG]

Здравствуйте!
Братцы, подскажите пожалуйста, почему не считается произведение?!

В массиве из 10 чисел есть хотя бы один отрицательный элемент. Вычислить произведение элементов массива до первого отрицательного.

var  a :array[1..10] of integer; i,p :integer;
begin  
    randomize;
    for i :=1 to 10 do
    a[i] :=-2+random(20);
    write('Massiv = ');
    for i :=1 to 10 do
    write(a[i]:4);
    p :=1;
    while (a[i]) >= 0 do
    begin    p :=p*i    end;
    writeln('Произведение = ',p);
    readln  end.

С уважением Виталий.

[Mad_Cat]

while (a[i]) > 0) do
    begin    p :=p*a[i]    end;

[WitaliG]

Исправил я по твоему, но результата нет. А почему???

[Mad_Cat]

В цикл еще i:=i+1 добавь

[cabss]

while (a[i]) >= 0 do вы же перебираете массив, но в тоже время i стоит неизменно.
while (a[i]) >= 0 do
begin
p :=p*i;
i:=i+1;
end;

[WitaliG]

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

[Serge_Bliznykov]

var  a :array[1..10] of integer; i,p :integer;
begin  
    randomize;
    for i :=1 to 10 do
    a[i] :=-2+random(20);
    write('Massiv = ');
    for i :=1 to 10 do
    write(a[i]:4);
    if a[1] < 0 
         then p := 0
         else p :=1;
    i :=1;
    while ((a[i]) >= 0) and (i<=10) do
    begin   
       p :=p*a[i];
       i:=i+1;
    end;
    writeln('Произведение = ',p);
    readln  
end.

p.s. кстати, думаю, что на нулевые элементы массива умножать не стоит..
иначе произведение будет равно нулю..

[WitaliG]

Спасибо Serge_Bliznykov, код очень хорошо работает.
Скажите: Это какие же книжки надо читать, чтобы так хорошо решать задачи?!
С уважением Виталий.

[Stilet]

А не проще ли было бы вычислять непосредственно при вводе массива?

var  a :array[1..10] of integer; i,p :integer;firstminus:boolean;
begin  
    randomize;
    firstminus:=true;
    for i :=1 to 10 do begin
     a[i] :=-2+random(20);
     if firstminus and (a[i]>0) then p :=p*a[i] else firstminus:=false;
    end;
    writeln('Произведение = ',p);
    readln  
end.

Или я опять что-то путаю?

Это какие же книжки надо читать, чтобы так хорошо решать задачи?!

Умные ))) И не лениться.

[WitaliG]

Три раза запускал компилятор с Вашим, Stilet, кодом и все три раза пишет: Произведение = 0