{* Задача258 *}

REM basic

' 1.Запросить размерность массива.
' 2.Заполнить случайными числами
' 3.Определить число положительных


{Lyashkov 1.1
}INPUT n
Dim a(n, n)
 RANDOMIZE TIMER
For i = 1 To n
For j = 1 To n
a(i, j) = INT(RND(1) * 10) - 4
PRINT a(i, j);
Next j
PRINT
Next i
u = 1
For i = 1 To n
For j = 1 To n
If i > j And i + j > n + 1 And a(i, j) > 0 Then s = s + 1: u = u * a(i, j)
Next j
Next i
If s = 0 Then PRINT "положительных чисел нет": GoTo 1
PRINT "произв-е"; u
PRINT "кол-во"; s
1 End