Определить среднее арифметическое элементов матрицы четвертого столбца, кратных 4 - QBasic
Формулировка задачи:
Люди пожалуйста кто знает выручите
Дан двумерный массив целых чисел.определить среднее арифметическое элементов четвертого столбца, кратных 4
Решение задачи: «Определить среднее арифметическое элементов матрицы четвертого столбца, кратных 4»
textual
Листинг программы
INPUT "enter n: ", n
INPUT "enter m: ", m
DIM a(n, m)
FOR i = 1 TO n
FOR j = 1 TO m
PRINT "enter a("; i; ","; j; ")";
INPUT ": ", a(i, j)
NEXT
NEXT
IF m >= 4 THEN
FOR i = 1 TO n
IF a(i, 4) MOD 4 = 0 THEN
s = s + a(i, 4)
k = k + 1
END IF
NEXT
END IF
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j);
NEXT
PRINT
NEXT
IF k THEN
s = s / n
PRINT "average: "; s
ELSE
PRINT "there are no such elements"
END IF