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

ЗЫ: Зарание спасибо!

вы мне решите задачука плиз и сносите тему...

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

p - произведение
n - количество элементов
a - массив

это вроде только кусок? можешь полность зделать? я тебе век благодарен буду

а ты попробуй сам....
какой смысл в том, что я сделаю?
ты же так не научишься

ну я очень сильно тебя прошу...я в этом совсем не понимаю, а решить надо к сегднешнему утру
ЗЫ: тебя ведь это не сильно затруднит?, зато мне сильно поможет...

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

begin
for i:=1 to n do
  begin
  writeln('vvedite element N',i);
  readln(a[i]);
  end;
p:=1;
for i:=1 to n do
  if a[i]<>0 then
    p:=p*a[i];
writeln('p=',p);
readln;
end.  

набирала здесь, не проверяла.

огромнейшее тебе спасибо...