Валфавите кхмерского языка содержится 72 символа. определите информационный вес одного символа.

паскаль авс. программа меняет местами половинки массива: (6-10) и (1-5)

program nana05; uses crt; const n=10; var  a: array [1..10] of integer;   i,j,min,temp: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   randomize;   writeln('элементы массива: ');   {создание и вывод массива}  for i: =1 to n do      begin          a[i]: =random(100)-50;           write (a[i]: 5);       end; {меняем местами половинки массива}  for i: =1 to 5 do      begin          temp: =a[i];           a[i]: =a[5+i];           a[5+i]: =temp;       end;   writeln();   writeln('результат: ');   for i: =1 to n do      write(a[i]: 5); end.

program sherilusha; uses crt; var  i,n: integer;   max, temp: real; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('ввести количество чисел'); readln(n);   writeln('введите числа');   write('1-е число: '); readln(max);   for i: =2 to n do       begin          write(i,'-е число: '); readln(temp);           if max< temp then max: =temp;       end;   writeln('максимальное из введённых чисел равно ',max) ; end.