В непрозрачном мешочке хранятся 10 белых, 15 красных, 20 синих и 25 зелёных шариков. Какое количество информации будет содержать зрительное сообщение о цвете вынутого шарика? ответ с точностью до 4-х знаков после запятой

Чаще всего параллельные порты LPT используются для подключения к компьютеру печатающих устройств (принтеры).

Параллельные порты получили свое название благодаря методу передачи данных, т.к. они имеют восемь разрядов шины данных и передавать информацию байтами синхронно по восьми проводникам.

Сигналы данных могут дополнительно обеспечиваться собственными сигнальными линиями заземления — по одному на каждый канал данных. В таком случае, число сигналов возрастает до 25. Для соединения компьютера с устройством при параллельного интерфейса используется 25-ти контактный разъем Centronics.

Параллельные интерфейсы имеют высокую скорость передачи данных (до 150 К/сек) и низкую помехоустойчивость, что позволяет использовать кабель длинною не более трех метров.

For i:=1 to n do
  if a[i] > 0 then
    begin
    k:=k+1;
    sum:=sum+a[i]
    end;
average:=sum/k;

(a - данный массив, sum - сумма всех положительных чисел, k - количество положительных чисел - n - индекс последнего элемента массива, i - переменная для цикла, average - переменная, сохраняющая численное значение)
Запускаем цикл от 1 до n и перебираем все числа массива. Если i-тое число положительно, мы прибавляем его к sum, и увеличиваем k на 1, который сохраняет в себе количество положительных чисел массива. 
После завершения цикла, мы получаем k - количество положительных чисел, sum - сумма всех положительных чисел. Чтобы найти среднее арифметическое, делим сумму всех чисел на их количество. 
(Учитывайте, что переменная, сохраняющая среднее арифметическое должна иметь вещественный тип (real, double...))
Вот и всё. Если у вас возникают какие-то проблемы или ошибки в коде - оставьте комментарий. Если у вас проблемы с созданием массива (чтение массива с клавиатуры или создание массива со случайными числами) - опять же таки пишите:)