Найти разности наибольших и наименьших значений элементов строк матрицы

@Leonid313 · Регистрация: 18.03.2014

Студворк — интернет-сервис помощи студентам

Найти числа b1,b2,...,bm равные разностям наибольших и наименьших значений элементов строк

@Catstail · 25.02.2015, 18:59

Visual Basic

Function VarRows(Matr() As Double) As Double()
Dim R() As Double
   n% = UBound(Matr, 1)
   M% = UBound(Matr, 2)
   ReDim R(1 To n%) As Double
   For i% = 1 To n%
       amax# = Matr(i%, 1)
       amin# = Matr(i%, 1)
       For j% = 2 To M%
           If Matr(i%, j%) > amax# Then amax# = Matr(i%, j%)
           If Matr(i%, j%) < amin# Then amin# = Matr(i%, j%)
       Next j%
       R(i%) = amax# - amin#
   Next i%
   VarRows = R
End Function

@Leonid313 · 02.03.2015, 14:26 **[ТС]**

не работает в vs 10

@Catstail · 02.03.2015, 15:22

Сообщение от Leonid313

не работает в vs 10

- вопрос нужно задавать в соответствующем разделе.

@Leonid313 0 / 0 / 0 Регистрация: 18.03.2014 Сообщений: 23
		1
	Найти разности наибольших и наименьших значений элементов строк матрицы 25.02.2015, 16:51. Показов 1176. Ответов 3 Метки нет (Все метки) Найти числа b1,b2,...,bm равные разностям наибольших и наименьших значений элементов строк 0

@Leonid313 0 / 0 / 0 Регистрация: 18.03.2014 Сообщений: 23
	02.03.2015, 14:26 [ТС]	3
	не работает в vs 10 0

@Catstail Модератор 35504 / 19980 / 4184 Регистрация: 12.02.2012 Сообщений: 33,140 Записей в блоге: 13
	02.03.2015, 15:22	4
	Сообщение от Leonid313 не работает в vs 10 - вопрос нужно задавать в соответствующем разделе. 0

Опции темы

Найти разности наибольших и наименьших значений элементов строк матрицы

Решение