Написать программу которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое. программа на

 1)2,5 МБ = 16777216 б 
5)найдем количество  информации в одном символе. Оно равно 7 битlog2(128) = 7 (логарифм от 128 по основанию 2) У нас 800 символов, каждый по 7 бит итого 5600 битВ одном байте 8 бит: 5600/8бит = 700 байт. В 1кбайте 1024 байта (по старой классификации), итого700/1024 = 0.68359375 килобайтаответ:  0.68359375 килобайта
2) При алфавитном подходе к измерению количества информации известно, что если мощность алфавита N (количество букв в алфавите), а максимальное количество букв в слове, записанном с этого алфавита – m, то максимально возможное количество слов определяется по формуле L=Nm. Из условия задачи известно количество слов (L=2048) и количество букв в каждом слове (m=2). Надо найти N из получившегося уравнения 2048=N4. Следовательно, N=2.
ответ: 4 буквы.

program Find33;

uses  SysUtils;

const

 L = 100;    // количество чисел, можно изменить на любое значение

var

 i, j, c, cnt: Integer;

 A: array [1..L] of Integer;  // массив для сохранения чисел

 s: string;

begin

 WriteLn ('Массив трехзначных чисел: ');  // вывод на экран сообщения

 Randomize;                               // инициализация датчика случайных чисел

 for i := 1 to L do begin

   A [i] := 100 + Random (900);           // заполняем массив случайными трехзначными числами

   Write (A [i], ' ');                    // выводим их все на дисплей

 end;

 cnt := 0;                                // счетчик чисел с двумя тройками

 WriteLn ('Найдены числа:');

 for i := 1 to L do begin                 // цикл перебора всех элементов массива

   s := IntToStr (A [i]);                 // трехзначное число преобразуем с символьную строку

   c := 0;                                // счетчик троек в числе

   for j := 1 to Length (s) do begin      // цикл перебора всех символов строки

     if s [j] = '3' then begin            // если тройка, то инкремент счетчика троек

       c := c + 1;

     end;

   end;

   if c >= 2 then begin                    // если в числе хотя бы две тройки, то вывод числа и инкремент счетчика чисел

     cnt := cnt + 1;

     WriteLn (A [i]);

   end;

 end;

 WriteLn ('Количество чисел, у которых хотя бы две тройки = ', cnt);  // вывод результата

 ReadLn;                                   // ждать нажатия Enter

end.

Объяснение: комментарии в программе