Вклассе 30 человек за контрольную работу по информатике получено 15 четверок 6 пятерок 8 троек и 1 двойка сколько бит информации несет в себе четверка

7
бит
наверное так??

Для случайных чисел:

var
   a: array[1..5] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 5 do
      a[i] := random(100);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.

Для ручного заполнения:

var
   a: array[1..5] of integer;
   i: integer;
begin
   for i:=1 to 5 do
      readln(a[i]);
   for i:=1 to 5 do
      write(a[i], ' ');
   writeln;
   for i:=1 to 5 do
      a[i] := a[i] * i;
   for i:=1 to 5 do
      write(a[i], ' ');
end.

Program example;

const

A=30;

Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный

var

flag_max : integer;
flag_min : integer;

i. jmin,jmax : integer; //счетчики

Randomize;

array max[A];

//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;

//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max

jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;

//минимальный элемент

for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;

//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;

//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);