Массивы

@gaga99 · Регистрация: 09.06.2015

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

Помогите пожалуйста.В массив A считать 100 действительных чисел, находящихся в первом столбце рабочего листа. Отсортировать элементы, стоящие на нечетных местах по возрастанию, а на четных местах по убыванию элементов. Полученный массив записать во второй столбец. Выделить разным цветом ячейки, соответствующие возрастающим и убывающим подмассивам.

@~~Кащенко~~ · 15.06.2015, 12:20

Visual Basic

Sub gaga99()
Dim a(1 To 100) As Double, r As Long, rr As Long, t As Double
For r = 1 To 100
  Cells(r, 1) = Rnd * 100
  a(r) = Cells(r, 1)
Next r
 
For r = 1 To 97 Step 2
  For rr = r + 2 To 100 Step 2
    If a(r) > a(rr) Then t = a(r): a(r) = a(rr): a(rr) = t
  Next rr
Next r
 
For r = 2 To 98 Step 2
  For rr = r + 2 To 100 Step 2
    If a(r) < a(rr) Then t = a(r): a(r) = a(rr): a(rr) = t
  Next rr
Next r
 
End Sub

@gaga99 2 / 0 / 0 Регистрация: 09.06.2015 Сообщений: 5
		1
	Массивы 15.06.2015, 04:32. Показов 471. Ответов 1 Метки нет (Все метки) Помогите пожалуйста.В массив A считать 100 действительных чисел, находящихся в первом столбце рабочего листа. Отсортировать элементы, стоящие на нечетных местах по возрастанию, а на четных местах по убыванию элементов. Полученный массив записать во второй столбец. Выделить разным цветом ячейки, соответствующие возрастающим и убывающим подмассивам. 0

	15.06.2015, 12:20