Создать и вывести на экран матрицу размером n х m из случайных чисел в диапазоне от 50 до 100; n и m — случайные целые числа от 5 до 10 — QBasic(Бейсик)

DEFINT A-Z
n = RND * 6 + 5
m = RND * 6 + 5
' откомментировать для ввода с клавиатуры
'INPUT "Stolbci:", n
'INPUT "Stroki:", m
   CLS
   DIM M(m,n)
  FOR iy = 1 TO m: FOR ix = 1 TO n
   M(ix, iy) = RND * 51 + 50
  NEXT: NEXT
  FOR iy = 1 TO m: FOR ix = 1 TO n
   PRINT M(ix, iy);
  NEXT: PRINT : NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment