Найти минимальный элемент среди минимальных элементов столбцов двумерного массива чисел — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
CLS
RANDOMIZE TIMER
INPUT "Vvedite kol-vo strok ", n
INPUT "Vvedite kol-vo stolbtsov ", m
DIM a(n, m), min(m)
   FOR i = 1 TO n
     FOR j = 1 TO m
        a(i, j) = INT(RND * 20) - 10
     NEXT j
   NEXT i
FOR i = 1 TO n
      FOR j = 1 TO m
       PRINT a(i, j);
      NEXT j
       PRINT
NEXT i
  
FOR j = 1 TO m
min(j) = a(1, j)
FOR i = 1 TO n
IF a(i, j) < min(j) THEN min(j) = a(i, j)
NEXT
NEXT
minmin = min(1)
FOR i = 1 TO m
IF min(i) < minmin THEN minmin = min(i)
NEXT
PRINT "minimum sredi minumalnyh="; minm

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

Похожие записи/страницы:

Leave a Comment