Информационное сообщение объемом 6000 битов состоит из 100 символов.найти информационный вес символа и мощность алфавита.

Var   sr: real;   i,j,n: integer;   a: array[1..8,1..4]of integer;   b: array[1..32] of integer; begin for i: =1 to 8 do   begin   for j: =1 to 4 do     begin     a[i,j]: =random(-40,90);     write(a[i,j]: 4);     sr: =sr+a[i,j];     end;   writeln;   end; sr: =sr/32; writeln('среднее: ',sr); for i: =1 to 8 do   for j: =1 to 4 do   if a[i,j]> sr then     begin     n: =n+1;     b[n]: =a[i,j];     end; writeln('количество искомых элементов: ',n); for i: =1 to n do  write(b[i]: 4); end.  

Program pr; uses crt; var n,i: integer; stepen, sum,a: real; begin     writeln('введите количество чисел n');     readln(n);     writeln('введите степень');     readln(stepen);     writeln();     sum: =0;       for i: =1 to n do     begin            write('введите ',i,' число: ');             readln(a);             sum: =sum+a;     end; writeln('sum = ',sum); writeln('sum^',stepen,' = ',power(sum, stepen)); readln; end.