Дан массив 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы