Поменять местами min и max значения в массиве

@pansnk · Регистрация: 19.11.2015

Даны массивы А1, … , А20
В1, … , В20
Поменять местами Аmin и В max .

@k13 · 19.11.2015, 13:36

VB.NET

Dim a_min_n As Integer = Array.IndexOf(a, a.Min)
Dim b_max_n As Integer = Array.IndexOf(b, b.Max)
 
Dim a_min As Double = a(a_min_n)
Dim b_max As Double = b(b_max_n)
 
a(a_min_n) = b_max
b(b_max_n) = a_min

@pansnk 0 / 0 / 0 Регистрация: 19.11.2015 Сообщений: 2
		1
	Поменять местами min и max значения в массиве 19.11.2015, 13:09. Показов 1556. Ответов 1 Метки vba, visual basic, массивы (Все метки) Даны массивы А1, … , А20 В1, … , В20 Поменять местами Аmin и В max . 0

Опции темы