Дан массив, заполненный случайными целыми числами в диапазоне от -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 %)
Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000.
Напишите подпрограмму, меняет местами левую и правую половины массива (дополнительный массив не использовать).
Например из массива: 1 2 3 4 5 6, получим 4 5 6 1 2 3.
Размер массива заранее задан константой N (четное число). Используйте заголовок:
procedure perest(var m:TMas);
Тип ТMas задан как array[1..N] of integer и может использоваться для описания параметров подпрограмм.
0
Объяснение: