Произведение элементов массива Опции

[Gars]

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

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

Сообщение отредактировано: мисс_граффити - 22.05.2007 1:04

[Гость]

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

[мисс_граффити]

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

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

[Gars]

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

[мисс_граффити]

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

[Gars]

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

Сообщение отредактировано: Gars - 22.05.2007 1:12

[мисс_граффити]

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.  

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

[Gars]

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