Достаточно ли видеопамяти объемом 300 кбайт для работы монитора в режиме 800*600 и палитрой из 16 цветов?

Палитра  n = 16, следовательно, глубина цвета  i  = 4 бита (24=16). общее количество точек равно: 640  ·  480 = 307200.информационный объем равен: 307200  ·  4 бита = 1228800 бит = 153600 байт = 150 кб

Const   n = 15; var   a: array[1..n] of integer;   i: integer; begin   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i] : = random(61) - 30;       write(a[i]: 4);       if a[i]> 0 then a[i]: =2*a[i]       else           if a[i]< 0 then a[i]: =7   end;   writeln;   writeln('после преобразования');   for i : = 1 to n do write(a[i]: 4);   writeln end. тестовое решение: элементы массива   -20  15  16  20    0  16 -15  -1  -2  21  -8 -10    4 -24    1 после преобразования     7  30  32  40    0  32    7    7    7  42    7    7    8    7    2

Function pr(a, b: integer): integer;   var tmp: integer; begin      if b = 1 then pr : = a      else      begin          tmp : = pr(a, b shr 1);           inc(tmp, tmp);           if b and 1 = 1 then inc(tmp, a);           pr : = tmp;       end; end; рекурсивная ф-ия, алгоритм работает гораздо быстрее лобового складывания (хоть с большими числами). процедура пишется аналогично. (если не допрешь - скажи, сделаю)