Дан массив 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д