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

[Данил]

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

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

[KENNY]

program maasiv1_var3;
const n=10;
var
A: array[1..n] of integer;
B: array[1..n] of integer;
i,j,proiz,nuln,nulk,k,summa,old,new: byte;


                           begin

                           proiz:=1;
                  WRITELN ('VVEDITE N ELEMENTOV MASSIVA');
                  for i := 1 to n do
                  read(A[i]);
                  writeln;

                                                        for j:=1 to n do
                                                        if odd(j)= false then proiz:=proiz*A[j];
                                                        writeln('proizved',proiz);

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;
              if j=i then summa:=0 else begin
              for j:=nuln to nulk do summa:=summa+A[j];
              end;
writeln('summa mezhdu0 ',summa);

                        for i:=1 to n-1 do
                        begin  new:=A[i];
                        old:=A[i+1];
                        k:=i;
                        if new>A[i+1] then begin
                         A[i+1]:=new;
                        A[i]:=old;

                        end;
                        end;
for i:=1 to n do writeln(A[i]);
                                   readln;
                                  end.

тута я пытался: сначала найти произведение эл-ов массива с четными номерами, потом сумму эл-ов между первыми последним нулевыми элементами, ну и в конце упорядочить по возростанию... конечно же ничего не получается, ну почему я такой корявый???
Во, тама кое что изменил, теперь сортирует, а вот произведение неправильно делает....

Сообщение отредактировано: volvo - 3.11.2006 4:27