Найти количество чисел, меньших 7.5 среди элементов матрицы лежащих выше главной диагонали
Категория: Basic
2012-02-09 16:48:05
Дана квадратная матрица 6х6. Найти количество чисел, меньших 7.5 среди элементов матрицы лежащих выше главной диагонали. Найти столбец, в котором разность среднего арифметического и первого элемента больше величины С
code: #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"
автор: кот Бегемот
Поделиться: