программа из Уроки от Дмитриева Эдуарда, помогите начинающему разобраться Опции

[Данил]

1.По теме "циклы": - напишите программу, печатающую столбик строк такого вида:

1 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0
0 0 0 0 5 0 0 0 0
0 0 0 0 0 6 0 0 0
0 0 0 0 0 0 7 0 0
0 0 0 0 0 0 0 8 0
0 0 0 0 0 0 0 0 9

я прочитал начиная с первого все уроки и честно сам делал все задания, но не понимаю как эту прогу написать, объясните алгоритм, пожалуйста....

[volvo]

Ну, допустим, произведение она как раз правильно считает... Неправильно вычисляется сумма... Смотри, почему...
Вот твой код:

for j:=n downto 1 do begin
  if A[j] = 0 then nuln:=j
  else nuln:=0; { Вот эта ветка не нужна }
end;
for j:=1 to n do begin
  if A[j]=0 then nulk:=j
  else nulk:=0; { Эта, соответственно, тоже }
end;

{ разве нужно сравнивать I и J, а не nuln и nulk ? }
if j=i then summa:=0
else begin
  for j:=nuln to nulk do summa:=summa+A[j];
end;

Почему Else в обоих случаях не нужен? Потому, что тебе нужно найти позиции нулевых элементов, ненулевые ты должен просто игнорировать, а ты не игнорируешь, а обращаешь на них внимание...