Дан массив A(NxM). Получить массив B(N), где Bi – наименьшее из значений элементов на промежутке - VB
Формулировка задачи:
Дан массив A(NxM). Получить массив B(N), где Bi – наименьшее из значений элементов, находящихся в начале i-той строки массива до элемента Ai. в бейсике
Решение задачи: «Дан массив A(NxM). Получить массив B(N), где Bi – наименьшее из значений элементов на промежутке»
textual
Листинг программы
Form1.Cls
Dim a%(), b%(), n%, m%
n = InputBox("n")
m = InputBox("m")
ReDim a(n, m), b(n)
Print "massiv a"
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("a(" & i & "," & j & ")")
Print a(i, j);
Next j
Print
Next i
Print
Print "massiv b"
For i = 1 To n
b(i) = a(i, 1)
For j = 1 To i
If a(i, j) < b(i) Then b(i) = a(i, j)
If j = m Then Exit For
Next j
Print b(i);
Next i