Как вставить мин элемент массива после всех четных элементов? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы