Дан целочисленный прямоугольный массив 6x10. опишите в программе "паскальавс" алгоритм вычисления количества положительных элементов в каждой строке этого массива

Const     n = 6;     m = 10; var     a: array[1..n,1..m] of integer;     i,j,k: integer; begin randomize; writeln('исходный массив(',n,',',m,'): '); for i: = 1 to n do       begin       k: =0;       for j: = 1 to m do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 4);               if a[i,j] > 0 then k: =k+1;               end;       writeln(', k = ',k)       end; end. пример работы программы: исходный массив(6,10):     8    5  -1  -1  -2 -10  10  -8  -7    5, k = 4     8    3    2    5    5    6  -2    3    1    1, k = 9     1    7    7    4  10    1    6    7    7  10, k = 10   10  -4  -8  -8    4    4  -3    0    3  -7, k = 4   -6  -3    1    7  -7    7    2  -1    7  -5, k = 5     6    5  -6    5    7 -10    9    5    0    7, k = 7

Равняется 11111014

Объяснение: