1) для записи текста использовался 256-символьный алфавит. какой объем информации в байтах содержит сообщение из 1000 символов? 2)информационное сообщение объемом 144 байта состоит из 128 символов. каков информационный вес каждого символа этого сообщения? 3)информационное сообщение объемом 6 кбайт состоит из 6144 символов. сколько символов содержит алфавит, при которого было записано это сообщение?

1)Так как для кодирования одного символа 256-символьного алфавита достаточно 8 бит или одного байта 256=2^8
то информационный объём = 8*1000=8000 бит  или 1000 байт
1*1000=1000 байт
2)
144 байта = 1152 бита
1152/128=9 бит весит один символ
3)
6 кбайт =1024*8*6=49152 бит 
49152/6144=8 бит один символ 
2⁸=256 символьный алфавит 

//Pascal ABC.NET v3.1 сборка 1219
Const 
n=15;

 Var
 ar:array[1..n] of integer; 
sum,i:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(2,23);
   write(ar[i]:4);
   sum:=sum+sqr(ar[i]);
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]+ar[n];
   write(ar[i]:4);
  end;
end.

Пример работы программы:
First array:
  19  21  10  13   7  13   9   2  22  20  10   7  17   7  22
Sum=3229
Final array:
  41  43  32  35  29  35  31  24  44  42  32  29  39  29  44

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 i,sum:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(5,15);
   write(ar[i]:4);
   if i<=6 then
   sum:=sum+ar[i];
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]*7;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
   9  15   5  12  13   6  11   7   6  14  13   6   6  10  11
Sum=60
Final array: 
   63   105    35    84    91    42    77    49    42    98    91    42    42    70    77