Дана квадратная матрица 6х6. Найти количество чисел, меньших 7.5 среди элементов матрицы лежащих выше главной диагонали. Найти столбец, в котором разность среднего арифметического и первого элемента больше величины С — Basic(Бейсик)

DIM a(6, 6)
RANDOMIZE TIMER
PRINT "matrica"
FOR i = 1 TO 6
FOR j = 1 TO 6
a(i, j) = INT(RND * 20)
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO 6
FOR j = i + 1 TO 6
IF a(i, j) < 7.5 THEN kol = kol + 1
NEXT
NEXT
PRINT "kol-vo chisel<7.5 vyshe gl. diagonali="; kol
INPUT "vvedite chislo C=", c
FOR j = 1 TO 6
sum = 0
FOR i = 1 TO 6
sum = sum + a(i, j)
NEXT
IF sum / 6 - a(1, j) > c THEN PRINT "stolbec"; j: f = 1
NEXT
IF f = 0 THEN PRINT "takih stolbcov net"

Leave a Comment