Question

Сделать блок-схему.
Дана матрица размером nxn вычислить сумму и число положительных элементов каждого столбца матрицы.

Answer 1

Еще на всякий случай прикреплю исходник на языке Pascal:

const n = 10;

var mat: array [1..n, 1..n] of integer;

sum, count: array [1..n] of integer;

begin

   for var i:=1 to n do

       for var j:=1 to n do

           mat[i, j] := random(-10, 30);

           

   writeln('Matrix: ');

   for var i:=1 to n do

   begin

       for var j:=1 to n do

           write(mat[i, j]:4);

       writeln();

   end;

   writeln();

   

   for var i:=1 to n do

       for var j:=1 to n do

           if mat[i, j] > 0 then

           begin

               sum[j] += mat[i,j];

               count[j] += 1;

           end;

   writeln('Sum:');

   for var i:=1 to n do

        write(sum[i]:4);

   writeln();

   writeln('Positive count:');

   for var i:=1 to n do

       write(count[i]:4);

   writeln();

end.