Что тут не так? uses crt; const n=20; var a: array [1..n] of integer; i: integer; begin clrscr; randomize; for i: =1 to n do a: =random(100); redln(a); writeln('элементы масива: ', a); end.

Надо в цикле писать a[i], а не а да и ниже тоже использовать а[i] и цикл uses   crt; const   n = 20; var   a: array [1..n] of integer; i: integer; begin   clrscr;   randomize;   for i : = 1 to n do a[i] : = random(100);   write('элементы масива: ');   for i : = 1 to n do write(a[i]: 4); end.

Во-первых, добавить предпоследнюю строчку readkey; во-вторых,( redln пишется readln) readkey  в программе лишнее, так как переменная a[i]     определяется случайным образом в-третьих, переменную а в местах после randomize заменить на a[i] далее, оператор цикла надо сделать полным,иначе мы увидим только одно число  из 20   для этого надо добавить после оператора do слово begin и третью строку снизу end;     перед предпоследней добавленной readkey;

 

program sred;   var

        n, i, sum : integer;

      mas: array[1..20] of integer;   af: real;   begin

          sum : = 0;

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

          for i: =1 to n do       begin               readln(mas[i]);           sum : = sum + mas[i];       end;       af : = sum/n;       writeln (af); end.

дано:

n1 = 256 цветов

n2 = 65536 цветов

найти:

v1< v2 во сколько раз

решение:

1) n1 = 2^i1

256 = 2^8

i1 = 8 бит глубина кодирования 1 пикселя, если использовать палитру 256 цветов

2) n2 = 2^i2

65536 = 2^16

i2 = 16 бит  глубина кодирования 1 пикселя, если использовать палитру 65536 цветов

3) пусть s - количество пикселей в изображении - оно одинаково для обеих палитр (по условию рисунок был один и тот же)

тогда

v1 = s * i1, следовательно s = v1 / i1

v2 = s * i2,  следовательно s = v2 / i2

v1/i1 = v2/i2

v1/8 = v2/16

v2 * 8 = v1 * 16

делим обе части на 8

v2 = 2*v1

значит v2 > v1 в два раза

ответ: информационный объем файла увеличился в два раза.