Определи способ заполнения массива.

randomize; fori: =1to10doa[i]: =random(80);

с оператора присваивания (случайными числами)
нет верного ответа
ввод каждого значения с клавиатуры

2^i = 32, i = 5 бит приходится на 1 символ

2^i = 64, i = 6 бит приходится на 1 символ

т.к. количество символов в тексте одинаковое, то 6 : 5 = 1,2

информационный объем второго текста в 1,2 больше, чем у первого текста.

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

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

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.