алгоритм есть, осталась сделать прогу

[korteas]

Здарово, люди! Помогите с задачей, пожалуйста. Алгоритм я уже составил, но не знаю как написать на Паскале (тут чтото связанное с Массивом, и я вот тут вот и не догнал)

P[i]=П*A[i.j], i=0..m
j=0
j<>i

1) i=-1
2) i=i+1
3) P[i]=1
4) j=0
5) j=j+1
6) если J=i перейти (5) иначе (7)
7) P[i]=P[i]*A[i,j]
8) если j<n перейти (5) иначе (9)
9) вывод P[i]
10) если i<m перейти (2) иначе (11)
11) end.

[Небесный]

Ты просто скажи русским языком, что тебе нужно(без алгоритма)? Постараемся в силу своих возможностей помочь.

[zetrix]

Хех... делаю самым ламерским методом (не проверял):

i:=-1;
M2:
i:=i+1;
P[i]:=1;
j:=0;
M5:
j:=j+1;
if J=i then goto M5 else goto M7;
M7:
P[i]:=P[i]*A[i,j];
If j<n then goto M5 else goto M9;
M9:
Writeln(P[i]);
If i<m then goto M2 else goto M11;
M11:
end.
//если упростить немного:
i:=-1;
M2:
i:=i+1;
P[i]:=1;
j:=0;
M5:
j:=j+1;
if J=i then goto M5;
P[i]:=P[i]*A[i,j];
If j<n then goto M5;
Writeln(P[i]);
If i<m then goto M2;
end.

[korteas]

спасибо! вы действительно люди!

[zetrix]

А вообще всё это можно делать через циклы с пред/пост условием (while/repeat).