<span>1. 50 и 30 2. 80 3. Больше Чем 30 4. Больше
</span>
N=2i (2 в степени i) - формула Шеннона
N - мощность алфавита. Отсюда i=7
То есть один символ несёт информационный объём в 7 бит. А их аж 8192. Перемножаем 8192*7 и делим на 8 (количество битов в одном байте) = 7168 байта. Что составляет 7168/1024=7 Кб
Ответ: 7 Килобайт
На выводе массива поставил вывод до 4 знака после запятой, можете убрать, если захотите. Или вообще вывод массива убрать
uses crt;
const n=16;
var i,ans:integer;
mas:array[1..n] of real;
begin
writeln('Массив:');
for i:=1 to n do
begin
mas[i]:=cos(i)/i;
writeln(mas[i]:0:4);
end;
if mas[1]>mas[2] then
inc(ans);
for i:=2 to n do
if (mas[i]>mas[i-1]) and (mas[i]>mas[i+1]) then
inc(ans);
writeln('Ответ: ',ans);
<span>end.</span>
Промотав последовательность действий в обратную сторону, мы получим ответ
1)
Идентификатор в Паскале. Идентификаторы - имена объектов и конструкций программы (меток, констант, типов, переменных, типов, процедур, функций, объектов, модулей, программ, полей в записях и т.д.).