1. 2 бита - пямять необходимая хранение одного одного четырехцветного пикселя
640*480*2/8 = 76800 байт необходимо для хранения изображения 640 на 480.
2 байта необходимо для хранения 1 пикселя которы может принимать 1 из 256 цветов
X = 76800/(2*640) =60
например : 640x60
2. 16 , 256 , 65536, 16777216, 4294967296;
3. объем занимаемой видеомамяти уменьшится в 4 раза т.к. в 4 раза уменьшится глубина цвета: c 16 до 4
4. объем занимаемой видеомамяти увеличится в 8 раз т.к. в 8 раз увеличится глубина цвета: c 4 до 32
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(11,-29,150); a.Println;
Writeln('Ср.арифм. положительных: ',a.Where(x->x>0).Average:0:3);
Writeln('Ср.арифм. отрицательных: ',a.Where(x->x<0).Average:0:3);
Swap(a[1],a[6]);
Writeln('Результирующий массив'); a.Println
end.
Пример
91 109 113 119 17 95 41 131 -15 117 -14
Ср.арифм. положительных: 92.556
Ср.арифм. отрицательных: -14.500
Результирующий массив
91 41 113 119 17 95 109 131 -15 117 -14