8. в кодировке unicode на каждый символ отводится 2 байта. определите информационный объём текстового сообщения в этой кодировке, если сообщение занимает 1 печатный лист по 20 строк на листе и 30 символов в строке слова.

20*30=600 символов

600*2=1200 байт= 1.2килобайта

program d;

var min,max,a : integer;

mas: array[1..5] of integer;

begin

for a: =1 to 5 do

begin

readln(mas[a]); //вводим число и записываем его в массив

if mas[a]< =mas[min] then min: =a; //проверяем , если элемент массива меньше эталона , то запоминаем его индекс и перезаписываем эталон

if mas[a]> =mas[max] then max: =a; //проверяем , если элемент массива больше эталона , то запоминаем его индекс и перезаписываем эталон

end;

writeln;

writeln (mas[max]); //выводи элементм максимальный элемент

for a: =1 to 5 do

if (a< > min)and(a< > max) then writeln (mas[a]); //выводим все элементы кроме макс.и мин.

writeln(mas[min]); //выводим минимальный

end.​

Var   ar: array[1..10]of integer;   i, c, s: integer;   begin   s : = 0;   c : = 0;   randomize;   for i : = 1 to 10 do ar[i] : = random(-10, 10);   writeln('полученный массив: ');     for i : = 1 to 10 do write(ar[i], ' ');   writeln;   for i : = 1 to 10 do if(ar[i] < > 0) then c : = c + 1;   writeln('количество ненулевых элементов = ', c);   for i : = 1 to 10 do if(ar[i] < > 0) then s : = s + ar[i];   writeln('сумма всех его ненулевых элементов = ', s);   write('их среднее арифметическое = ',s/c); end.