Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, отсортирует элементы массива по возрастанию количества цифр кратных трем в числе (дополнительный массив не использовать).

Например из массива: 1 22 33 4444 533 36, получим 1 22 4444 33 533 36.

Размер массива заранее задан константой N. Используйте заголовок:

procedure sort(var m: TMas);
Тип ТMas задан как array[1..N] of longint и может использоваться для описания параметров подпрограмм.

Используйте сортировку методом простого обмена ("пузырек").

Answer:(penalty regime: 0 %)