Динамический массив !?

[Gandr]

Напечатать в возрастающем порядке все цифры,не входящие в запись данного натурального числа .
---------------------------------------
Помогите плиз , препод сказал ему нужно что бы это было через динамический массив
P.s За ранее спасибо !!!

[ViktorR]

Алгоритм:
Создаем динамический массив на 10 элементов.
А) С помощью оператора MOD получаем младшую цифру числа.
Используем младшую цифру числа как индекс элемента массива и увеличиваем элемент на единицу.
С помощью оператора DIV удаляем младшую цифру числа.
Если число больше нуля, то переходим к пункту А)
В цикле просматриваем массив либо слева направо, либо справа налево и если элемент равен нулю, то печатаем индекс этого элемента.
Пример:

type TWordMas = array of word;
var k, i: longint;
   mas : TWordMas;
begin
   randomize;
   SetLength(mas, 10);
   for i := 0 to 9 do
      mas[i] := 0;
   k := random(2000000000);
   writeln(k);
   while k > 0 do
   begin
      i := k MOD 10;
      mas[i] := mas[i] + 1;
      k := k DIV 10;
   end;
   for i := 0 to 9 do
      if mas[i] = 0 then
         write(i, '  ');
   writeln;
   readln;
end.

PS: Тут анализируемое число формируется случайным образом.

Как-то так, ...

[Аватар]

А паскаль то какой? Не в каждом SetLength есть

[ViktorR]

У меня FPC, а Turbo уже давно не пользую.
В том случае, если Turbo, то надо

getmem(mas, 10*sizeof(word));

и затем, например,

mas^[i] := mas^[i] + 1;

В конце не забыть freemem(mas);
В частности, в моем примере массив не освобождается, а надо бы

mas := nil;

Как-то так, ...