Какая структура программы верна. перечислите и объясните найденные ошибки: а) begin program myfirst; x: = y+195; end. b) program myprog begin writeln (''); end.

Верная под буквой b. под буквой а неверно так как строчка program myfirst; должна быть первой в программе.

Вкачестве примера равномерного кода можно назвать ascii-таблицу, где каждому из 256 символов сопоставлено двоичное значение от 00000000 до 11111111. независимо от вероятности появления символа на его представление отводится 1 байт, или 8 бит. как известно, национальные языки большой избыточностью, то есть разницей между энтропией источника и максимально возможной энтропией, обусловленной равной вероятностью появления любого символа из алфавита. например, избыточность языка составляет 70%, а – 50%. это в частности означает, что некоторые буквы появляются в тексте гораздо чаще других и поэтому использовать равномерное кодирование нерационально. при неравномерном кодировании часто встречающимся символам сопоставляются более короткие кодовые последовательности, редко встречающимся – более длинные. за счет этого удается значительно сократить объем файла без потерь информации. существует несколько методов неравномерного кодирования, важнейших из которых является метод шеннона-фано. тут не много, да и все понятно, надеюсь и тебе будет .

1) var a: array[1..10] of integer; i: integer; begin randomize(); for i: =1 to 10 do begin     a[i]: = 1+ random(10);     write(a[i], ' ');     if a[i] mod 2 = 0 then a[i]: =a[i] + 1;     end;     writeln(); for i: =1 to 10 do      write(a[i], ' '); end. 2) var a: array[1..10] of integer; i: integer; begin randomize(); for i: =1 to 10 do begin     a[i]: = 1+ random(10);     write(a[i], ' ');     if a[i] mod 2 < > 0 then a[i]: =a[i] * 3 else a[i]: = 0;     end;     writeln(); for i: =1 to 10 do      write(a[i], ' '); end.