Kursova rabota Programirane 1

Program KursovaRabota17;
    // Simeon Baltadzhiev 12.11.2019
    // Даден е двумерен масив A с m реда и n стълба.
    // Да се състави блоксхема на алгоритъм, чрез който се създава нов масив b1,b2..bn,
    // като стойоноста на bj е равна на сумата на отрицателните
    // елементи в j-ия стълб. Да се състави програма по този алгоритъм.
    var
    m, n, i, j : integer;
    sum, temp : integer;
    a : array[1..111, 1..111] of integer;
    b : array[1..111] of integer;

    begin
        i:=1;
        j:=1;
        sum:=0;
        //---------------------------INPUT-------------------------------------
        writeln('Enter m (rows):');
        readln(m);
        writeln('Enter n (columns):');
        readln(n);

        for i:=1 to m do
            begin
                for j:=1 to n do
                    begin
                        readln(temp);
                        a[i][j]:=temp;
                    end;
            end;

        //------------------main-----------------------------------------------
        for j:=1 to n do
            begin
                for i:=1 to m do
                    begin
                      temp:=a[i][j];
                      if temp<0 then
                         begin
                           sum:=sum+a[i][j];
                         end;
                    end; // for i to m end
            b[j]:=sum;
            sum:=0;
            end; // for j to n end
            writeln('------------------------------');

            //----------------------OUTPUT------------------------------------
            writeln('The following lines will show the negative sum of "j" columns(',n,'):');
            for j:=1 to n do
                begin
                    //writeln('Column ', j, ' has ', b[j],' sum');
                        writeln('Column ', j, ' negative sum is: ', b[j]);
                end;

end.