Помогите пожалуйста решить задачу, сам я в этом не понимаю, вот она:
Дан массив из 10 элементов, найти произведение всех не нулевых элементов
ЗЫ: Зарание спасибо!
вы мне решите задачука плиз и сносите тему...
p:=1;
for i:=1 to n do
if a[i]<>0 then
p:=p*a[i];
это вроде только кусок? можешь полность зделать? я тебе век благодарен буду
а ты попробуй сам....
какой смысл в том, что я сделаю?
ты же так не научишься
ну я очень сильно тебя прошу...я в этом совсем не понимаю, а решить надо к сегднешнему утру
ЗЫ: тебя ведь это не сильно затруднит?, зато мне сильно поможет...
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.
огромнейшее тебе спасибо...