Как вставить мин элемент массива после всех четных элементов? - VB
Формулировка задачи:
Всем привет! Помогите разобраться с задачкой.
Имеется одномерный массив из n элементов и собственно сама задачка:
как вставить мин элемент массива после всех четных элементов?
я так понимаю массив увеличится до n+k элементов, где k - количество четных элементов
Решение задачи: «Как вставить мин элемент массива после всех четных элементов?»
textual
Листинг программы
dim a(),b() n=20 'TEST redim a(1 to n) 'array's filling code min=a(1) k=0 for i=1 to n if a(i) mod 2 = 0 then k=k+1: ReDim Preserve b(1 to k): b(k)=a(i) if min > a(i) then min=a(i) next i ReDim Preserve a(1 to n+k+1) if k>0 then for i=1 to k a(n+i)=b(i) next i end if a(n+k+1)=min
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д