{* Задача111 *}

REM basic

' Дана квадратная матрица 6х6. Найти количество чисел <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"
End