INPUT "vvedite razmer matricy N ", n
DIM d(n, n)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO n
FOR j = 1 TO n
d(i, j) = INT(RND * 50) / 2 - 10
PRINT d(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
IF d(i, n - i + 1) > 0 AND d(i, n - i + 1) <> INT(d(i, n - i + 1)) THEN sum = sum + d(i, n - i + 1)
NEXT
PRINT "summa drobnyh polojitelnyh="; sum