Дана действительная матрица 5х4, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индекс найденного элемента- 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
DIM a(5, 4), min(5), xmin(5), ymin(5)
FOR i = 1 TO 5
FOR j = 1 TO 4
INPUT "vvedite element"; a(i, j)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO 5
FOR j = 1 TO 4
PRINT a(i, j); ' ';
NEXT
PRINT
NEXT
FOR i = 1 TO 5
min(i) = a(i, 1)
xmin(i) = i
jmin(i) = 1
FOR j = 1 TO 4
IF a(i, j) < min(i) THEN min(i) = a(i, j): xmin(i) = i: ymin(i) = j
NEXT
NEXT
max = min(1)
xmax = xmin(1)
ymax = ymin(1)
FOR i = 2 TO 5
IF min(i) > max THEN max = min(i): xmax = xmin(i): ymax = ymin(i)
NEXT
PRINT "max="; max; " stroka="; xmax; " stolb="; ymax

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

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

Leave a Comment