Дан массив из 15 целых чисел заполненный случайными числами из интервала [0; 20]. выведите в строку эти элементы. найдите сумму элементов массива, значения которых не превышает 10

Var     i,s: integer;     a: array[1..15] of integer; begin randomize; for i: =1 to 15 do     begin  a[i]: =random(21);     write(a[i],' ');     if a[i]< =10 then s: =s+a[i]     end; writeln('сумма ',s) end.

ответ: стрела

123456

а       л

е         р

л       е

р         т

с       а

т       с

сортируем буквы по алфавиту и выписываем в 1 столбик. в последний столбик вписываем данную последовательность.

так как сдвиг циклический, то перед буквой в последнем столбике стоит буква в 1 столбике (т.е перед буквой л стоит а, а перед буквой р - е и т.д. ). заполняем все промежутки (см. 2 выбираем нормальное слово.

1 таблица

стрела

астрел

ластре

еластр

реласт

трелас

2 таблица

астрел

еластр

ластре

реласт

стрела

трелас

объём информации (он же информационная энтропия) зависит от содержания сообщения. а место, которое оно занимает на двоичном информационном носителе, определяем так:

log2(64) = 6 битов на символ.

далее зависит от устройства памяти. под один символ обычно отводится целое число байтов (минимальных адресуемых ячеек). если так (а в вопросе упоминаются байты), то берём байт из 8 битов, тогда это 1 байт на символ, итого 500 байтов или 0,5 килобайта или около 0,49 кб.

если биты выстроены непрерывно, тогда считаем длину сообщения в битах: 6 * 500 = 3000 битов. делим на 8 (байт), итого 375 байтов или 0,375 килобайтов или около 0,37 кб.