Прошу! решить с дано. 3. автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в 16-битовом коде unicode, в 8- битовую кодировку кои-8. при этом информационное сообщение уменьшилось на 800 битов. какова длина сообщения в символах?

Const   nm=10; {максимальная длина массива} var   i,j,n1,n2,n3,t: integer;   a,b: array[1..nm] of integer;   c: array[1..2*nm] of integer; begin   write('введите количество элементов в массиве a: ');   readln(n1);   write('введите количество элементов в массиве b: ');   readln(n2);   n3: =n1+n2;   write('введите элементы массива a через пробел ');   for i: =1 to n1 do       begin       read(a[i]); c[i]: =a[i]       end;   j: =n1;   write('введите элементы массива b через пробел ');   for i: =1 to n2 do       begin       read(b[i]); inc(j); c[j]: =b[i]       end;   write('массив а: ');   for i: =1 to n1 do write(a[i],' ');   writeln;   write('массив b: ');   for i: =1 to n2 do write(b[i],' ');   writeln;   { сортировка массива с}   for i : = 1 to n3-1 do       for j : = 1 to n3-i do           if c[j] > c[j+1] then               begin               t: =c[j]; c[j]: =c[j+1]; c[j+1]: =t               end;   writeln('отсортированный по возрастанию массив c');   for i: =1 to n3 do write(c[i],' '); end. контрольное решение: введите количество элементов в массиве a: 6 введите количество элементов в массиве b: 4 введите элементы массива a через пробел 3 8 -4 0 8 12 введите элементы массива b через пробел 9 -5 8 5 массив а: 3 8 -4 0 8 12 массив b: 9 -5 8 5 отсортированный по возрастанию массив c -5 -4 0 3 5 8 8 8 9 12

(я так понял масив(матрица) "состоящая из 5 строк и 10 столбцов заполненная случайными числами в диапазоне от 0 до 29" вводитса з клавиатуры) (я на паскале на ошибки не проверял)

program dl9_aridrettnir;

var a: array [1..10,1..5] of inteher;

sum: array [1..10] of integer;

i,q,j: integer;  

begin

writeln ('vvedit masiv ot 0 do 29');

for i: =1 to 10 do

begin

for q: =1 to 5 do begin

readln (a[i,q]);

end; end;

for i: =1 to 10 do

begin sum[i]: =0;

for q: =1 to 5 do begin

for j: =1 to 10 do begin 

sum[i]: =a[q,j]+sum[i];

end; end; end;

readln

end.