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(10, -30, 30);
a.Println;
var k := a.Where((v, i)-> v.IsEven and i.IsEven).Count;
Println('Искомое количество равно', k)
end.
29 7 -2 -7 -26 -21 -9 -26 -10 27Искомое количество равно 3Предполагается, что индексы массива идут от 1. Если они идут от нуля, надо заменить i.IsEven на i.IsOdd