Помогите решить задачку и сделать блок-схему

[Питон_80]

Помогите решить задачку и сделать блок-схему

Сумма столбцов.
Задана двумерная матрица размерностью 10x10 элементов, заполненная случайными числами из диапазона [0, 50]. Найти, вывести результаты на экран и записать в файл «output.txt» сумму этих элементов по столбцам таблицы.

 

[Евгений]

const n=10;
type  Matr=array[1..n,1..n] of Word;
var   f:text;
      a:Matr;
      i,j,sum:Word;
begin
      Assign(f,'output.txt');
       Rewrite(f);
        Writeln(f,'Matrix:');
         Writeln('Matrix:');
          Writeln(f); Writeln;
           Randomize;
       for i:=1 to n do
        begin
          for j:=1 to n do
            begin
              a[i,j]:=Random(51);
              Write(f,a[i,j]:4);
              Write(a[i,j]:4);
            end;
          Writeln(f);
          Writeln;
        end;
       Writeln(f); Writeln;
        Writeln(f,'Summi elementov po stolbcam:');
         Writeln('Summi elementov po stolbcam:');
          Writeln(f); Writeln;
           for i:=1 to n do
            begin
              Write(f,i:6);
              Write(i:6);
            end;
            Writeln(f); Writeln;
             Writeln(f); Writeln;
       i:=1;
        repeat
           sum:=0;
           for j:=1 to n do
            sum:=sum+a[i,j];
           Write(f,sum:6);
           Write(sum:6);
           Inc(i);
        until i>n;
       Writeln(f); Writeln;
       Close(f);
       Readln;
end.

 

[Евгений]

Пардон. Посчитал суммы в строках. Надо поменять:

 j:=1;
        repeat
           sum:=0;
           for i:=1 to n do
            sum:=sum+a[i,j];
           Write(f,sum:6);
           Write(sum:6);
           Inc(j);
        until j>n;

 

[Питон_80]

Огромное спасибо.

 

[Питон_80]

Блок-схема

Сумма столбцов.
Задана двумерная матрица размерностью 10x10 элементов, заполненная случайными числами из диапазона [0, 50]. Найти, вывести результаты на экран и записать в файл «output.txt» сумму этих элементов по столбцам таблицы.