Поменять местами максимум и мининум в массиве и упорядочить массив по возрастанию - VB

  1. Помогите пожалуйста решить задачи 1)Найти максимум в массиве 2)Найти минимум в массиве 3)Поменять местами максимум и мининум в массиве и упорядочить массив по возрастанию Это очень срочно. Желательно в VBA но можно и в других


textual

Код к задаче: «Поменять местами максимум и мининум в массиве и упорядочить массив по возрастанию - VB»

Dim a(1 To 10), mi, ma, mi1, ma1, m As Integer
Dim s As String
List1.Clear
Randomize
s = ""
' создаем массив
For i = 1 To 10
 a(i) = Int(Rnd(1) * 50 + 1) 
 s = s + " " + Str(a(i))
Next i
'вывод созданного массива
List1.AddItem s: s = "": List1.AddItem ""
' ищем максимальный и минимальный элемент массива
mi1 = a(1): ma1 = a(1): mi = 1: ma = 1
For i = 2 To 10
 If a(i) < mi1 Then mi = i: mi1 = a(i)
 If a(i) > ma1 Then ma = i: ma1 = a(i)
Next i
'вывод максимума и миниума
s = Str(a(mi)) & Str(a(ma))
List1.AddItem s: s = "": List1.AddItem ""
'меняем местами максимальный и минимальный элементы
a(mi) = ma1: a(ma) = mi1
For i = 1 To 10
 s = s + " " + Str(a(i))
Next i
'вывод массива измененного массива
List1.AddItem s: s = "": List1.AddItem ""
'сортируем элементы массива по возрастанию
For i = 1 To 10
For j = 1 To 10
 If a(j) > a(i) Then m = a(j): a(j) = a(i): a(i) = m
Next j
Next i
For i = 1 To 10
 s = s + " " + Str(a(i))
Next i
'вывод отсортированного массива
List1.AddItem s

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.000 из 5



Похожие ответы
  1. Сформировал двумерный массив A(10,8). Как поменять местами правую и левую часть этого массива?

  1. Есть идеи насчет третьего задания?

  1. дан массив действительных чисел. поменять местами наибольший и наименьший элементы заданного массива

  1. 1)Массив из 9 элементов. Поменять местами первый положительный элемент с первым отрицательным элементом 2)...Добавлено через 2 минуты Напишите программу

  1. В массиве Z(19) найти наибольший и наименьший элементы и поменять их местами. Вот нашел код

  1. Добрый день, всем и каждому. Помогите с решением следующей задачки. Нужно Поменять местами элементы 3-й и 6-й строк. Результат вывести на лист Заранее спасибо.

  1. Как поменять название кнопки в MsgBox?

  1. Переставить первые три и последние и последние три элемента местами, сохраняя их следования/ Visual Basic ПОМОГИТЕ ПОЖАЛУЙСТА!!!

  1. Пересчитать матрицу К размерности m * n так, чтобы поменялись местами первый и последний столбец. Для отладки программы контрольный пример выбрать самостоятель*но. Помогите найти ошибку