Дан массив A(NxM). Получить массив B(N), где Bi – наименьшее из значений элементов на промежутке - VB

Формулировка задачи:

Дан массив A(NxM). Получить массив B(N), где Bi – наименьшее из значений элементов, находящихся в начале i-той строки массива до элемента Ai. в бейсике

Код к задаче: «Дан массив A(NxM). Получить массив B(N), где Bi – наименьшее из значений элементов на промежутке - VB»

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

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ