Помогите пожалуйста!Из одномерного массива сформировать два одномерных, все четные числа перенести в один,все нечетные в другой.

на QBASIC

1

Ответы и объяснения

2012-12-28T10:51:58+00:00

dim a(10),b(10),c(10),i,n1,n2 as integer

n1=1

n2=1

for i=1 to 10 

a(i)=console.readline()

end for

 

for i=1 to 10 

if a(i) mod 2 = 0 then

b(n1)=a(i)

n1=n1+1

else 

c(n2)=a(i)

n2=n2+1

end if

end for