Вычислить средние арифметические значения неотрицательных элементов каждой строки матрицы [n; m]. построить блок-схемуprogram qwe; var n,m: integer; a: array[1..10,1..10] of integer; sum: word; count, i, j: byte; beginwriteln('введите размер матрицы'); readln(n); readln(m); randomize; for i: =1 to n do begin sum : = 0; count : = 0; for j: =1 to m do begin a[i,j] : = random(100) - 50; write(a[i,j]: 4); if a[i,j] > = 0 then begin sum : = sum + a[i,j]; count : = count + 1; end; end; writeln(' среднее ', sum/count: 4: 2); end; end.
