Дан одномерный массив а размер массива 10 найти сумму всех элементов массива

Var i,sum: integer;   a: array[1..10] of integer; begin; for i: =1 to 10 do readln(a[i]); next i; sum: =0; for i: =1 to 10 do  sum: =sum+a[i]; next i; writeln('сумма элементов =  ',sum); 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 кб.