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

Будем считать, что на каждый символ одного и того же сообщения приходится одинаковое число битов. Если количество информации в первом тексте в 2,5 раза меньше, чем во втором тексте, а количество символов одинаково, то каждый символ первого текста несёт в 2,5 раза меньше информации, чем символ второго текста.

В каждом алфавите не более 32 символов, поэтому на 1 символ приходится не более 5 бит. Все варианты: 1, 2, 3, 4, 5. Среди вариантов есть только один случай, при котором отношение двух чисел будет равно 2,5, только в том случае, когда символ второго алфавита несёт 5 бит (размер алфавита 2^5 = 32), а символ первого алфавита - 2 бита (размер алфавита 2^2 = 4).

ответ. Первый алфавит содержит 4 символа, второй алфавит - 32 символа.

A)
program a1;
uses crt;
var m:array[1..40]of integer;
i:byte;
a,ka:integer;
begin
clrscr;
a:=0;ka:=0;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 if m[i] mod 2<>0 then
 begin
 ka:=ka+1;
 a:=a+m[i];
 end;
 end;
for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
writeln('Среднее арифметическое нечетных чисел=',a/ka);
end.
b)
program b1;
uses crt;
var m:array[1..40]of integer;
i:byte;
b:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
 if m[i]<=10 then b:=b+m[i];
 end;
 end;
for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
writeln('Сумма чисел не превышающих 10=',b);
end.
в)
program v1;
uses crt;
var m:array[1..40]of integer;
i:byte;
c:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
if m[i] mod 3=0 then c:=c+m[i];
 end;
 end;
 for i:=1 to 40 do
 if i=1 then write('M[',m[i],',')
 else
 if i=40 then writeln(m[i],']')
 else
write(m[i],',');
writeln('Сумма чисел кратных 3 = ',c);
end.