Consta: array[1..3]ofinteger=(13, 8, 58); верно ли описан массив?

A. var  a: array[1..10] of real;   i: integer; begin  for i: = 1 to 10 do begin  write('введите ',i,'-ый элемент массива ');   readln(a[i]);   if a[i]> 10 then a[i]: =sqrt(a[i]);   end;   write('преобразованный массив ');   for i : = 1 to 10 do  write(a[i],' | '); end.б.var  a: array[1..10] of real;   i: integer; begin  for i: = 1 to 10 do begin  write('введите ',i,'-ый элемент массива ');   readln(a[i]);   if (i mod 2) = 0 then a[i]: =trunc(a[i]);   end;   write('преобразованный массив ');   for i : = 1 to 10 do  write(a[i],' | '); end.

Вкинозале всего 16×32=512 мест. сообщение о купленном билете однозначно определяет выбор одного из этих мест. из уравнения  2  i  = 512=29получаем: i=9 бит. но эту же можно решать иначе. сообщение о номере ряда несет 4 бита информации, т.к. 24=16. сообщение о номере места несет 5 бит информации, т.к. 25=32. в целом сообщение про ряд и место несет: 4+5=9 бит информации. данный пример иллюстрирует выполнение закона активности информации (правило сложения):   количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.