Как найти проиизведение в одномерном массиве?

[kitty]

В одномерном массиве, состоящем из 10 элементов, найти произведение элементов массивов, расположенных между первым и вторым нулевым элементами...нужно использовать опереаторы for, if...написать программу в паскале...

[Карась]

Допустим у нас есть последовательность чисел:
1 4 5 0 2 6 1 0 5 9 (массив)
Попытаемся подумать как же найти произведение между нулями...
1. Надо найти номера элементов массива в котором стоят нули. В нашем примере это 4 и 8.
2. Надо определить какой из них левее, чтоб цикл провести с права на лево.
3. Перемножить всё что между нулями.

АДД: пункт 2 ненужен, так как я придумал другой способ.

[Карась]

Короче так примерно....

program Znaki;

{$APPTYPE CONSOLE}


var mas: array [1..10] of integer;
    i, left, right, rez: integer;


begin
rez := 1;
Writeln ('Zapolnite masiv...');
for i := 1 to 10 do Readln(mas[i]); Writeln ('Gotovo...');
Writeln;

for i := 1 to 10 do
if mas[i] = 0 then begin left := i; Break;
end;

for i := left + 1 to 10 do
if mas[i] = 0 then begin right := i; Break;
end;

for i := left + 1 to right - 1 do
rez:= rez * mas[i];

Writeln; Writeln (rez); Readln;
end.

Правда тут есть один недостаток если нули стоят подряд (например 1 2 3 0 0 4 6 3.... ) то программа получит 1. Что неверно.
Эта ошибка решается путём проверки равенства left + 1 = right - 1 ?
Попробуйте сами

[aljkerh]

Сообщение от Карась

Короче так примерно....


Эта ошибка решается путём проверки равенства left + 1 = right - 1 ?
Попробуйте сами

надо делать две проверки:
скоре если left = right то rez:=0
(если оставить left + 1 = right - 1 то программа будет выводить не то )

и если left > right то rez:=0

[Карась]

Смотри внимательно как определяется left и right.
right никогда неможет быть меньше чем left.

скоре если left = right .......

Таково в моей программе неможет быть.

и если left > right то rez:=0

А в условии написанно

...расположенных между первым и вторым нулевым элементами...

[aljkerh]

я говорю только относительно проверки.

если проверять left + 1 = right - 1
1. 1 2 3 0 0 4 6 3 5 1, в этом случае rez = 1;
2. 1 2 3 0 5 4 6 3 5 1, в этом случае rez = 1;
3. 1 2 3 0 5 0 6 3 5 1, в этом случае rez = 0.

если проверять left = right
1. 1 2 3 0 0 4 6 3 5 1, в этом случае rez = 0;
2. 1 2 3 0 5 4 6 3 5 1, в этом случае rez = 0 здесь еще надо проверять left > right, т.е. в массиве один нуль;
3. 1 2 3 0 5 0 6 3 5 1, в этом случае rez = 5.

[Карась]

ага.. есть неточности

Тогда всё обработка кривотни выглядит так:

..........
..........
if left + 1 = right then rez := 0;
if mas[right] = 0 then rez := 0;

Writeln; Writeln (rez); Readln;
end.

[aljkerh]

Сообщение от Карась

ага.. есть неточности

Тогда всё обработка кривотни выглядит так:

..........
..........
if left + 1 = right then rez := 0;
if mas[right] = 0 then rez := 0;

Writeln; Writeln (rez); Readln;
end.

Во втором условии косяк.
если right нет => right=0, а mas[0]-косяк массив от 1..10.(поэтому я и использовал left > right)
можно сделать:
if right = 0 then rez := 0;

[puporev]

Правда тут есть один недостаток если нули стоят подряд (например 1 2 3 0 0 4 6 3.... ) то программа получит 1. Что неверно.

С чего бы это? По моему в этом случае rez:= rez * mas[i] = 1*0=0.

[Карась]

верно...

Теперь второе условие должно быть таким:

if right = 0 then rez := 0;