Дана матрица B(N,M). Выдать минимальный элемент каждого столбца матрицы — 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
cLS
PRINT "zadayte kol-vo ctolbcov"
INPUT n
PRINT "zadayte kol-vo ctrok"
INPUT m
DIM a(m, n)
FOR i = 1 TO m
FOR j = 1 TO n
PRINT "zadayte element"; i, j
INPUT a(i, j)
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO m
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
PRINT "minimumy stolbcov"
FOR j = 1 TO n
min = a(1, j)
FOR i = 2 TO m
IF a(i, j) < min THEN min = a(i, j)
NEXT
PRINT min;
NEXT

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

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

Leave a Comment