Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Разбиение по массивам

Автор: SupportID 28.5.2008, 15:48

Так, сейчас попытаюсь наиболее точно охарактеризовать задачу. Вообщем задается некий массив массив целочисленный, допустим K(n) все четные элементы этого массива необходимо поместить в другой массив, допустим L(n) , а нечетные тоже в другой M(n) и вывести получившийся результат

Автор: Akina 28.5.2008, 17:00

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Добавлено через 4 минуты и 7 секунд

Код


il = 0
im = 0
for i = lbound(K) to ubound(K)
if (K(i) mod 2) = 0 then
  L(il)=K(i)
  il=il+1
else
  M(im)=K(i)
  im=im+1
end if
next i