Pascalabc. дан массив целых чисел. переформировать элементы исходного массива, поставив перед всеми числами, равными максимальному среди элементов исходного массива номер по порядку встречае мости.

Алг
нач
цел Кол_во=256, логтаб Матрица[1:Кол_во] цел Число,j 

Матрица[1]:=нет
нц для Число от 2 до Кол_во 
Матрица[Число]:=да
кц
нц для Число от 2 до div(Кол_во,2)
нц для j от 2 до div(Кол_во,Число)
Матрица[Число*j]:=нет 
кц
кц
нц для Число от 1 до Кол_во
если Матрица[Число]=да то
вывод Число," "
все
кц
кон 

Результат выполнения программы: 
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251

1. Количество точек = 64*64.
Объем файла = 64*64*16 бит = 64*64*16/8 байт = 64*64*2 байт = 64*64*2/1024 Кбайт = 8 Кбайт

2. Размер цифрового моноаудиофайла измеряется по формуле:
     A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
44,1 кГц = 44100 Гц
 A = 44100*2*16 бит = 44100*2*16 / (8*1024) Кбайт = 172,265625 Кбайт ≈ 172,3 Кбайт

3. Общее количество символов для записи номеров = 20+10=30
Для кодирования одного символа необходимо log(2)30 ≈ 5 бит (2^5=32).
Для записи одного номера требуется 8*5 бит = 40 бит = 40/8 байт = 5 байт
Для хранения 50 номеров потребуется 50*5 байт = 250 байт