Задание:
Помогите пожалуйста! Из одномерного массива сформировать два одномерных, все четные числа перенести в один, все нечетные в другой. На QBASIC
Решение:
dim a (10) ,b (10) ,c (10) ,i,n1,n2 as integern1=1n2=1for i=1 to 10 a (i)=console.readline () end for for i=1 to 10 if a (i) mod 2=0 thenb (n1)=a (i) n1=n1+1else c (n2)=a (i) n2=n2+1end ifend for
Знаете другой ответ?