Ввод элементов массива с использованием генератора случайных чисел, печать
элементов
Один из ввода элементов массива - ввод случайными числами. Перед вами текст
программы, которая вводит элементы массива и распечатывает их. Набрать это программу
в Паскале (комментарии в {} можно не печатать). Протестировать.
var a:array[1..10] of integer; {объявление массива}
i:integer;
Begin
for i:=1 to 10 do {ввод элементов массива случайными числами от -10 до 10}
a[i]:=random(21)-10;
for i:=1 to 10 do {печать элементов массива в одну строку}
write(a[i]:4); {:4 - число знакомест для записи целых чисел, можно
использовать write(a[i]," ")}
End.
Выполнить следующие задания на основе этой программы. Прикрепить файл с ответом.
Описать числовой массив на 15 элементов и заполнить его случайными целыми числами,
каждое из которых лежит в пределах от 10 до 100.
а) Распечатать значения элементов массива в строку;
б) Распечатать только элементы, кратные 3.
в) Распечатать элементы, стоящие на четных местах.
Все задания выполнять в одном файле. Чтобы ответы для каждого задания отделялись
друг от друга печатайте в программе между ними "Writeln;".

Ре­ше­ние.

Ско­пи­ру­ем число из ячей­ки A1 в ячей­ку P1. По­сколь­ку ладья может хо­дить через не­огра­ни­чен­ное ко­ли­че­ство ячеек вниз и впра­во, не­об­хо­ди­мо для каж­дой ячей­ки вы­би­рать, из ка­ко­го числа в стро­ке до этой ячей­ки, и из ка­ко­го числа в столб­це выше этой ячей­ки долж­на схо­дить ладья, чтобы сумма ячеек при этом была мак­си­маль­ной. Для этого в ячей­ке Q1 за­пи­шем фор­му­лу =МАКС($P$1:P1)+B1 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на R1:AD1. В ячей­ке P2 за­пи­шем фор­му­лу =МАКС($P$1:P1)+A2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на P3:P15. В ячей­ке Q2 за­пи­шем фор­му­лу =МАКС(МАКС($P2:P2);МАКС(Q$1:Q1))+B2 и ско­пи­ру­ем её во все ячей­ки диа­па­зо­на Q2:AD15. По­лу­чим ответ — 323.

ответ: 323.

1.Из условия задачи «Для кодирования секретного сообщения используются 12
специальных значков-символов. При этом символы кодируются одним и тем же минимально возможным количеством бит. следует, что для кодирования используется алфавит, мощность которого равна N=12 (все символы алфавита равнозначны). Тогда информационный вес символов одинаков и вычисляется по формуле Хартли i=log212=4 бита. Тогда информационный объем сообщения, согласно алфавитному подходу, измеряется по формуле V=i*k. Значение i мы уже нашли, а k по условию задачи равно 256.
Получаем: V=4 (бита)×256 (символов) =1024 (бита) = 128 (байта).

2.всего используется 26 букв + 10 цифр = 36 символов для кодирования 36 вариантов необходимо использовать 6 бит, так как 2^5=32<36<2^6=64, т.е. пяти бит не хватит (они позволяют кодировать только 32 варианта), а шести уже достаточно таким образом, на каждый символ нужно 6 бит (минимально возможное количество бит).
полный номер содержит 7 символов, каждый по 6 бит, поэтому на номер требуется 6 x 7 = 42 бита.
По условию каждый номер кодируется целым числом байт (в каждом байте – 8 бит), поэтому требуется 6 байт на номер (5x8=40<42<6x8=48), пяти байтов не хватает, а шесть – минимально возможное количество на 20 номеров нужно выделить 20x6=120 байт.
ответ: 120 байт.

3. Всего клеток 8х8 = 64. Для кодирования 1 клетки необходимо 6 бит (2^6=64). В записи решения будет описано 12 клеток (11 ходов+начальная позиция). Объем информации записи 12х6 = 72 бита = 72:8 = 9 байт.
ответ: 9 байт.

4. 76 символов = 76 байт, 76 байт * 8 = 608 бит.
ответ: 608 бит.

5. на один символ было 16 бит, стало 8, таким образом:
8x=16x-240, отсюда:
x=30 символов

6. 4096 = 1024⋅4, 16 бит = 2 байта, 8 бит = 1 байт
Было в Unicode: 212 * 2 = 213 байт
Стало в Windows-1251: 212 байт.

Объём файла уменьшился на 213 байт - 212 байт = 212 байт = 4 Кбайта

ответ: 4.