Дан целочисленный прямоугольный массив 6x10. Опишите в программе "ПаскальАВС" алгоритм...

Question

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

Answer 1

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