датчик случайных чисел в Бейсике

[moi-72]

Помоготе используя датчик случайных чисел решить задачу:Вывести и распечатать матрицу K(n,m), найти среднеарифметическое элементов этой матрицы, лежащих в диапазоне от -5 до 6.

[Sazary]

А где ваши наработки? Что непонятно?

Ландо.. вот вам..

DIM k(100, 100) AS INTEGER
DIM n, m AS INTEGER
DIM i, j, cnt AS INTEGER
DIM sr AS DOUBLE
CLS
RANDOMIZE TIMER
INPUT "Enter n: "; n
INPUT "Enter m: "; m
FOR i = 1 TO n
 FOR j = 1 TO m
 k(i, j) = INT(RND * 18) - 5
 PRINT USING "####"; k(i, j);
 NEXT j
PRINT
NEXT i
'-------------
cnt = 0
sr = 0
FOR i = 1 TO n
 FOR j = 1 TO m
 IF k(i, j) >= -5 AND k(i, j) <= 6 THEN
  sr = sr + k(i, j)
  cnt = cnt + 1
  END IF
 NEXT j
NEXT i

sr = sr / cnt
PRINT USING "Sred = ##.### (### elementov)"; sr; cnt

END