массивы Опции

[LELIK]

Код

создать программу нахождения произведения элементов массива

[klem4]

Код

p:=1;
for i:=1 to n do
for j:=1 to m do
  p:=p*x[i,j];

Сообщение отредактировано: klem4 - 5.04.2005 20:46

[volvo]

klem4,
он просил массива, а не матрицы

Код

p := 1;
for i := 1 to n do p := p * x[i];

[klem4]

Ну это я ему на будущее ) усложнил задачу в 2 раза :P

[FreeMan]

Код

p:=1;
for i:=1 to n do
for j:=1 to m do
for z:=1 to l do
 p:=p*x[i,j];

на более далёкое будещее. Усложгил в 3 раза