Найти целочисленные массивы N размера

@Daniel_8101 · Регистрация: 31.10.2013

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

Дан целочисленный массив А размера N. Переписать в новый целочисленный массив В того же размера
вначале все элементы исходного массива с четными номерами, а затем с нечетными...

Заранее благодарю!

@~~JoraVoenyjHaker~~ · 11.11.2013, 07:55

.......вот:

Кликните здесь для просмотра всего текста

Visual Basic

Sub Example()
    Const pr = " "
    Dim s$, f&, j1$(), j2$(), u&, i&
    For f = 1 To 100
        s = s & pr & f
    Next
    
    j1 = Split(Mid(s, 2)) 'Список чисел от 0 до 100
    u = UBound(j1)
    i = 0
    ReDim Preserve j2(u / 2)
    For f = 0 To u Step 2  '1 вариант
        j2(i) = j1(f)
        i = i + 1
    Next
    '&&&&&&&&&&&&&&&&&&&&&&&&&
    i = 0
    For f = 0 To u   '2 вариант
        If f Mod 2 = 1 Then
            j2(i) = j1(f)
            i = i + 1
        End If
    Next
    Debug.Print Join(j2)
    '&&&&&&&&&&&&&&&&&&&&&&&&&
    i = 0
    For f = 0 To u   '3 вариант
        If f Mod 2 = 0 Then
            j2(i) = j1(f)
            i = i + 1
        End If
    Next
    Debug.Print Join(j2)
    MsgBox "Готово ! :)"
End Sub

Добавлено через 8 минут
если надо чтоб выходной список был такого-же
размера то поменяйте

это ReDim Preserve j2(u / 2)
на это ReDim Preserve j2(u)

@~~Апострофф~~ · 11.11.2013, 08:36

Visual Basic

Sub main()
Dim n As Long, i As Long
n = 10 'или InputBox("Введите N:")
ReDim a(1 To n) As Long, b(1 To n) As Long
For i = 1 To n
  a(i) = Int(Rnd * 100)
Next i
For i = 1 To n \ 2
  b(i) = a(i * 2)
  b(n \ 2 + i) = a(i * 2 - 1)
Next i
If n And 1 Then b(n) = a(n)
End Sub

@Daniel_8101 0 / 0 / 0 Регистрация: 31.10.2013 Сообщений: 22
		1
	Найти целочисленные массивы N размера 10.11.2013, 19:16. Показов 1319. Ответов 2 Метки нет (Все метки) Дан целочисленный массив А размера N. Переписать в новый целочисленный массив В того же размера вначале все элементы исходного массива с четными номерами, а затем с нечетными... Заранее благодарю! 0

Опции темы

Найти целочисленные массивы N размера

Решение