Племя мульти пишет письма, пользуясь 16-символьным алфавитом. племя пульти пользуется 32-символьным алфавитом. вожди племён обменялись письмами. письмо племени пульти содержит 120 символов, а мульти 96. сравните информационные объёмы сообщений содержащихся в письмах.

Мульти 16 = 100% 96 = x   следовательно 16x = 96*100 16x = 9600 x = 9600/16 x = 600% пульти 32 = 100% 120 = x 32x = 120* 100% 32x = 12000 x = 12000/32 x = 350%  600/375 = одна целая три пятых  (во столько раз информационный объем письма мульти больше информационного объема письма пульти)

const n=27;

var a: array [1..n] of integer;

i: integer;

begin

write('       исходный массив: ');

for i: =1 to n do

begin

a[i]: =random(26)-10;

write(a[i]: 3,' ');

if a[i] mod 2 < > 0 then a[i]: =3

else a[i]: =a[i]-3//уменьшает на 3,т.к. при уменьшении в 3 раза получается тип real, тут или второй массив создавать или взять a[i]: =a[i] div 3 (целочисленное деление)

end;

writeln;

write('преобразованый массив: ');

for i: =1 to n do write(a[i]: 3,' ')

end.

uses arrays;

const

n = 27;

var

a : array of integer;

b : array of real;

i : integer;

begin

a : = createrandomintegerarray(n, -10, 15);

b : = new real[n];

for i : = 1 to n do

  if a[i-1] mod 2 = 1 then //[i-1] нумерация массива начинается

  b[i-1] : = 3     // с нуля!

  else

  b[i-1] : = a[i-1] / 3;

writeln('исходный массив: ');

a.println;

writeln('результат выполнения программы: ');

for i : = 1 to 27 do

  write(b[i-1]: 7: 3, ', ');

  if i mod 6 = 0 then

  writeln;

writeln

end.