Удалить из массива все элементы, которые состоят из одинаковых цифр - VB

Формулировка задачи:

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,30]. Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа). Вставить число К перед всеми элементами, в которых есть цифра 1. Переставить первые три и последние три элемента местами, сохраняя порядок их следования.

Решение задачи: «Удалить из массива все элементы, которые состоят из одинаковых цифр»

textual
                            Листинг программы 
                        

                            Function chkNum(N as integer) As Boolean
    chkNum=(abs(N) mod 10)=(abs(N)\10) 
End Function
Function Task1(A() as integer) As Integer ()
Dim R() As integer
     n%=Ubound(A,1)
     Redim R(1 to n%) As integer
     p%=0
     for i%=1 to n%
         if  not ChkNum(A(i%)) then
             p%=p%+1
             R(p%)=A(i%)
         end if
     Next i%
     Redim preserve R(1 to p%) As integer
     Task1=R
End function
                        

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

13 голосов , оценка 4.231 из 5

Похожие ответы