Помогите составить блок-схему

[KatrinSher]

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

Заранее благодарна!

[S_Yevgeniy]

начало
получение массива ( возможно он у вас в файле)
условие если I (элемент массива)<=N ( ну это последний элемент)
нет результат выход. если да то условие A[i]<>0
если да то умножаем.

Думаю так правда дано это не делал.

[KatrinSher]

Спасибо, конечно... но мне, честно говоря, не понятно)))
Не могли бы Вы скинуть блок-схему ввиде jpg.

[kakawkin]

Вот программа

const n=7;
var a:array[1..n] of integer;i,b:integer;
begin
 for i:=1 to n do
  begin
   write('Enter a[',i,']=');
   readln(a[i]);
  end;
 b:=a[1];
 for i:=2 to n do if a[i]<>0 then b:=b*a[i];
 writeln('Ответ: ',b);
end.

скоро размещу саму картинку с блоком схемой

ловите _http://s47.radikal.ru/i118/1007/12/56b26bd15443.jpg

[KatrinSher]

kakawkin, благодарю Вас! Здорово помогли!

[Vago]

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

Вот программа

const n=7;
var a:array[1..n] of integer;i,b:integer;
begin
 for i:=1 to n do
  begin
   write('Enter a[',i,']=');
   readln(a[i]);
  end;
 b:=a[1];
 for i:=2 to n do if a[i]<>0 then b:=b*a[i];
 writeln('Ответ: ',b);
end.

Неверно.

a = {0, 2, 3}
b = ?

2. Блок-схема. Тоже неверно.

Что обозначают выходы "Да" и "Нет" из ромба i = 2 to n ? Я так понимаю, "Да" - повторять цикл, а "Нет" - выйти из него? Тогда почему по "Нет" мы попадаем на проверку a[i]<>0 , а по "Да" - обходим её?

[.Phoenix]

Vago в любом случае пользователь попросивший помощь уже использовал решенную задачу и нарисованную блок-схему

[Vago]

Ну, ежели "пользователь, попросивший помощь" - мазохист[ка] - это его (её) личная проблема Ни программа, ни блок-схема от этого более правильными не стали.

[Анатоль]

Мда. Дожили. Просят не написать программу а составить блоксхему!
Что дальше? будут просить объяснить устно алгоритм дейксты на куче?

[Serge_Bliznykov]

Ну, ежели "пользователь, попросивший помощь" - мазохист[ка] - это его (её) личная проблема Ни программа, ни блок-схема от этого более правильными не стали.

+1
и вообще, непонятно, зачем эти трюки с b:=a[1] ?!
Ну классика же - если нужно получить произведение чисел, то начальная иницилизация переменной должна быть ЕДИНИЦА!

 b := 1;
 for i:=1 to n do
  if a[i]<>0 then b := b * a[i];

и это на простейших задачах! А что же будет, если подобным образом программировать сложные проекты?! Результат будет зависеть не только от фаз луны, но и от высоты телеграфных столбов?!