Составьте программу, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит на экран элементы, значения которых являются четными и кратными 3

var

a: array [1..20] of integer;

i: integer;

begin

randomize;

for i: =1 to 20 do begin

a[i]: =random(30)+1;

write (a[i],' ');

end;

writeln;

for i: =1 to 20 do

if (odd(a[i])=false) and (a[i] mod 3 = 0) then write (a[i],' ');

readln;

end. 

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

находим занимаемый объм в битах

640*640*2,5*4

делим на 1024 и находим его в килобитах

4000 кб

12000/4000=3 (3 бита цветности)

не ясно что нужно, кб-килобиты или килобайты