Квадратная матрица. Поиск чисел <7.5 выше глав. диагонали.

DEFINT A-Z
DIM A(6, 6) AS SINGLE, C AS DOUBLE
DIM SrAr AS DOUBLE, Sr AS DOUBLE
   RANDOMIZE TIMER
   CLS
   PRINT "Ishodnaya matrica: "
   C = RND * 10
 FOR iy = 1 TO 6
    FOR ix = 1 TO 6
       A(ix, iy) = RND * 15
       PRINT USING " ##.##"; A(ix, iy);
    NEXT: PRINT
 NEXT
 LOCATE 15: PRINT "Srednee arifmeticheskoe stolbcov"
 FOR ix = 1 TO 6
    FOR iy = 1 TO 6
       IF ix > iy THEN COLOR 10 ELSE COLOR 12
       LOCATE iy + 8, ix * 6 - 5
       IF ix > iy AND (A(ix, iy) < 7.5) THEN k = k + 1: COLOR 14
       SrAr = SrAr + A(ix, iy)
       PRINT USING " ##.##"; A(ix, iy);
    NEXT: SrAr = SrAr / 6
    IF SrAr - A(ix, 1) > C THEN N = ix: Sr = SrAr
    COLOR 11
    LOCATE 16, ix * 6 - 5: PRINT USING " ##.##"; SrAr
    SrAr = 0
 NEXT: COLOR 14
PRINT "Kol-vo chisel : "; k: COLOR 7
IF N > 0 THEN PRINT "Srednee arifm. stolbca ="; Sr
PRINT "C ="; C
PRINT "Nomer stolbca : ";
IF N > 0 THEN PRINT N ELSE PRINT "Netu"