{* Задача92 *}

REM basic

' Составьте программу вычисления суммы положительных элементов двухмерного массива A(N, M), принадлежащих интервалу (K, T).


CLS
INPUT "kol-vo strok"; n
INPUT "kol-vo stolbcov"; m
INPUT "nachalo intervala"; k
INPUT "konec intervala"; t
If t < k Then SWAP t, k
PRINT "massiv:"
For i = 1 To n: For j = 1 To m
        a(i, j) = INT(150 * RND(1) - 50)
        PRINT a(i, j);
        If a(i, j) > 0 And a(i, j) < t And a(i, j) > k Then s = s + a(i, j)
Next: PRINT: Next
PRINT "summa:"; s
End