//0.КОД И КАММЕНТЫ ЧИТАТЬ ПО ЦИФРАМ!!!! По номерам.



a=new Array; //1. Создаем наш 2Д массив. По трад. будет. а

getIntToArray(a);//2. Заносим туда нашу матрицу. Твоя табличка сложения



funnction sum(array a) //3. Функция, которая как-бы производит сумму этого столбика:)

{

res=new Array; //4.Это наш результат. Будущий) ВАЖНО! Пишу задом наперед!!!! См. каммент №16

int tmp; //5.Для помощи. Тут храниться сумма одного столбика

int k=0,l=0; //6. Доп. переменные. К. счетчик.



for(i=a.getLenght;i>0;i--) //7. "Ставим" "себя" в прав. угол. a.getLenght это ДЛИННА массива. Просто число!

{

while(tmp) //11.Пока тмп больше "0". Будем записывать число за числом из результата нашего столбца в массив. Десяток за десятком

{

l=k; //12. Тут l будет нашим счетчиком чтоб не k "портить".

res[l]=+tmp % 10;  //13. Записывам(добавляем) еще один десяток

l++; //14. увеличиваем, чтоб след. десяток. добавить....

tmp=tmp/10; //15. уменьшаем tmp на 10. На посл. цифру котор. занесли в результат.

}

k++; //16. увелич. счетчик эл-та рез-та.

     for(j=a.getHeight;j>0;j--) //8. Теперь в нижн. прав. угол.

           {

                 tmp+=a[j][i]; //9. Снизу(!) вверх суммируем ВСЕ числа. Сумма столбика:)

           }

}

return reverse(res);//17. Возвращаем наш результат. Вот он супер массив число. Только надо обернуть его, чтоб правильно записалось:)

}



sum(a);^_0

program arraysum;

var tosum: array [1...100,1..100] of Integer; //Как вариант, - array [] of 0..9;

      actualwidth,actualheight: Integer;

      aresult: array [1..100] of Integer;

begin

//читаем исходный массив.

for i := 1 to actualwidth do

begin

     aresult := 0; //ВАЖНО! В Паскале нет автоинициализации!

     for j := 1 to actualheight do

     begin

       aresult[i]:=aresult[i]+tosum[i,j];

     end;

  end;

  //выводим результатъ

end.

program arraysum;

var tosum: array [1...100,1..100] of Integer; //Как вариант, - array [] of 0..9;

      actualwidth,actualheight,resultwidth,cnt,carry: Integer;

      aresult: array [1..100] of Integer;

      go_on:boolean;

begin

//читаем исходный массив.

for i := 1 to actualwidth do

begin

     aresult := 0; //ВАЖНО! В Паскале нет автоинициализации!

     for j := 1 to actualheight do

     begin

       aresult[i]:=aresult[i]+tosum[i,j];

     end;

  end;

  go_on:=true;// или наоборот?

  cnt:=1;

  carry:=0;

  while go_on do

  begin

      aresult[cnt]:=aresult[cnt]+carry;

      carry:=aresult[cnt] div 10;

      aresult[cnt]:=aresult[cnt] mod 10;

      cnt:=cnt+1;

      go_on:=NOT (carry=0 AND aresult[cnt]=0);//Тьху, надо  NOT исправил.

  end;

  resultwidth:=cnt-1;//

  //выводим результатъ

end.

program arraysum;

var tosum: array [1...,1...] of Integer; //Почему он должен быть определен?? Вдруг числа оч. большие:)))

actualwidth,actualheight,colsum,k,l: Integer;

aresult: array [1..100] of Integer;

begin



for i := actualwidth downto 1 do

begin





   while colsum do

   begin

    l:=k;

    aresult[l]:=aresult[l]+colsum mod 10;

    colsum:=colsum div 10

    l:=l+1;

   end;



  k:=k+1;



   for j:= actualheight downto 1 do  

   begin

    colsum:=colsum+tosum[j,i];

   end;

end;



end;

Procedure rndm(n1, n2: integer);

var i,temp: integer;

    f: text;

begin

     randomize;

     assign(f, 'c:\in.txt');

     rewrite(f);

     writeln(f, n1);

     writeln(f, n2);

     temp:= 0;

     while temp = 0 do

           temp:= random(9);

     write(f, temp,' ');

     for i:= 2 to n1 do

          write(f, random(9),' ');

     writeln(f);

     temp:= 0;

     while temp = 0 do

           temp:= random(9);

     write(f, temp,' ');

     for i:= 2 to n2 do

         write(f, random(9),' ');

     close(f);

end;

Procedure umnoj;

var f,g: text;

    i,j,k,l,x,y,p,s: integer;

    a,a1,b,b1: array [1..max] of byte;

    c: array [1..max,1..max] of byte;

    go_on: boolean;

begin

     assign(f, 'c:\in.txt');

     assign(g, 'c:\out.txt');

     reset(f);

     rewrite(g);

     for k:= 1 to max do

     begin

          a[k]:= 0;

          a1[k]:= 0;

          b[k]:= 0;

          b1[k]:= 0;

     end;

     for k:= 1 to max do

         for l:= 1 to max do

             c[k,l]:= 0;

     readln(f, i);

     readln(f, j);

     for k:= 1 to i do

         read(f, a1[k]);

     for k:= 1 to j do

         read(f, b1[k]);

     for k:= 1 to max do

     begin

         a[max-i+k]:= a1[k];

         a1[k]:= 0;

     end;

     for k:= 1 to max do

     begin

         b[max-j+k]:= b1[k];

         b1[k]:= 0;

     end;

     p:= 0;

     s:= 0;

     for l:= max downto 1 do

     begin

          for k:= max downto 1 do

              begin

                   p:= a[k]*b[l]+p;

                   c[k-s,max-l+1]:= p mod 10;

                   p:= p div 10;

              end;

          inc(s);

     end;

     for l:= max downto 1 do

     begin

          a1[l]:= 0;

          for k:= 1 to max do

              a1[l]:= a1[l]+c[l,k];

     end;

     go_on:= true;

     l:= max;

     p:= 0;

     while go_on do

     begin

          a1[l]:= a1[l]+p;

          p:= a1[l] div 10;

          a1[l]:= a1[l] mod 10;

          dec(l);

          go_on:= not ((p=0) and (a1[l]=0));

     end;

     for l:= 1 to max do

         write(g, a1[l]);

     close(f);

     close(g);

end;

var n1,n2: integer;

begin

     write('Vvedite dlinnu 1 chisla: ');

     readln(n1);

     write('Vvedite dlinnu 2 chisla: ');

     readln(n2);

     rndm(n1, n2);

     umnoj;

end;

   begin

          a1[l]:= a1[l]+p;

          p:= a1[l] div 10;

          a1[l]:= a1[l] mod 10;

          dec(l);

          go_on:= l=0;

     end;

for k:= 1 to max do

     begin

         a[max-i+k]:= a1[k];

         a1[k]:= 0;

     end;