в первом будет такая закономерность +2,*2,-2 и соответственно 1,3,6,4,6;во второй будет такая:-2;+3;-2.... 9,7,10,8,11;и последняя -1,-1,+5,-1,-1......3,2,1,6,5,4,3.вот и все)
Program Program1; var a:array [1..10] of integer; i:integer; begin randomize; Writeln('Исходный массив: '); for i:=1 to 10 do begin a[i]:=random(10)+1; writeln('a[',i,']=',a[i]); end; for i:=1 to 10 do if i mod 2 = 0 then a[i]:=sqr(a[i]); Writeln('Преобразованный массив: '); for i:=1 to 10 do writeln('a[',i,']=',a[i]); end.
В колоде 4 туза, следовательно шанс вытащить туза 4/32=1/8. Неопределенность уменьшилась в восемь раз, 8=2 в третьей степени. Поэтому информации 3 бита.