Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Произведение элементов массива

Автор: Gars 22.05.2007 4:46

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

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

Автор: Гость 22.05.2007 4:56

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

Автор: мисс_граффити 22.05.2007 5:03

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

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

Автор: Gars 22.05.2007 5:05

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

Автор: мисс_граффити 22.05.2007 5:06

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

Автор: Gars 22.05.2007 5:10

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

Автор: мисс_граффити 22.05.2007 5:17


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 22.05.2007 5:31

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