Массив: Вставить число А между всеми соседними элементами массива, имеющими одинаковое количество цифр.

Дан целочисленный линейный массив. Вставить число a между всеми соседними элементами, имеющими одинаковое количество цифр.

0

Уважаемый Срок,
предлагаю вам свой алгоритм решения вашей задачи.
1. объявить число А и инициировать его
2. объявить линейный массив X(), (например Dim X(10) As Integer)
3. и заполнить его целыми случайными числами
4. объявить линейный массив Y(), такой же длины как и массив X()
(в этот массив будет помещаться длина чисел массива X())
5. выполнить
примечание: надеюсь вы понимаете, что мы находим сначала модуль числа (функция Abs()), потом переводим число в строковый вид (функция Str()), потом вычисляем длину числа (функция Len() выдает длину числа + 1), и далее число возвращаем в числовой вид (функция Val()), и минус 1 (последнее можно и не делать)
6. теперь нам необходимо узнать, сколько же чисел А надо добавить?
7. выполнить
(где kol - количество чисел А подлежащих добавке)
8. объявить линейный массив Z() длина которого будет больше длины массива X() на величину kol
(например, Dim Z(10 + kol) As Integer))
9. теперь заполняем массив Z() элементами массива X() и числами А.
10. выполнить
11. теперь надо распечатать оба массива X() и Z() для сравнения

Добавлено через 13 минут
примечание
для объявления динамических массивов следует использовать
оператор ReDim (массив Z() - динамический)

0

Сообщение от нтч функция Len() выдает длину числа + 1

Неправда.

Добавлено через 8 минут
Замените Str на Cstr и не нужно будет минусовать единицу.

Цитата из справочника:

Функция Str(String) используется для приведения числового выражения типа Long в строку(тип String) Возвращаемое значение Функция Str(Expression) возвращает значение Number, преобразованное в текстовый тип данных String. При преобразовании в начале строки возвращаемого значения резервируется место для знака числа. Если число положительно, то в этом месте будет пробел, если число отрицательно, то выводится знак минус. .......

1

Сообщение от нтч Уважаемый Срок, предлагаю вам свой алгоритм решения вашей задачи.

Вы издеваетесь? ТСу не нужен алгоритм, а нужен готовый код, который можно скопипастить, сдать и забыть.
По алгоритму - достаточно одного цикла. Создать выходной массив удвоенной длины, записать первый элемент. В цикле: если длина очередного элемента равна длине предыдущего, записать в выходной массив заданное число. Записать очередной элемент. После цикла Redim Preserve выходного массива.

0