Сколько мощности в одном символе 128 - символьного алфавита

Валфавите мощностью 128 символов один символ занимает 7 бит

1символ = 1 байт тоесть 128 байт

// pascalabc.net 3.0, сборка 1128 procedure allmake(p: array of integer; var avg: real); begin   avg: =p.average;   for var i: =0 to p.length-1 do       if p[i]< avg then p[i]*=10 end; begin   var n: =readinteger('количество элементов в массиве: ');   var a: =arrrandom(n,1,50);   writeln('исходный массив'); a.println;   var av: real;   allmake(a,av);   writeln('среднее арифметическое равно ',av);   writeln('результирующий массив'); a.println;   writealltext('out.txt',a.joinintostring) end. тестовое решение: количество элементов в массиве: 15 исходный массив 34 50 49 50 17 21 13 25 11 43 47 45 30 11 1 среднее арифметическое равно 29.8 результирующий массив 34 50 49 50 170 210 130 250 110 43 47 45 30 110 10 файл out.txt дан во вложении.

// pascalabc.net 3.0, сборка 1128 begin   var k: =readinteger('укажите номер записи k: ');   var a: =readlines('t1.txt').select(x-> length(           where(x-> x< > 0).toarray;   var n: =a.length;   if k> n then writeln('в файле записей меньше, чем ',k)   else writeln('сумма равна ',a.min+a[n-k+1]) end. а теперь "школьный вариант" // pascalabc.net 3.0, сборка 1128 var   t: text;   min,l,m,n,k: integer;   s: string; begin   k: =2; // вторая от конца запись   assign(t,'t1.txt'); reset(t);   min: =1000; m: =0;   while not eof(t) do begin       readln(t,s); inc(m);       l: =length(s);       if (l> 0) and (l< min) then min: =l       end;   close(t); reset(t);   k: =m-k+1;   if k< 1 then writeln('в файле нет стольких строк')   else begin       m: =0;       while m< > k do begin readln(t,s); inc(m) end;       writeln('сумма равна ',min+length(s))       end;   close(t) end.