Объяснение:
1. Всего пикселей: 512*128=65536 пикселей
64 кбайта = 64*8*1024 = 524288 бит.
На каждый пиксель отводится 524288 / 65536 = 8 бит.
То есть глубина цвета равна 8 бит. Всего можно использовать 2^8 = 256 цветов.
2. 16 цветов соответствуют глубине цвета в 4 бита.
Всего пикселей: 640*480 = 307200 пикселей
Всего видеопамяти необходимо для хранения этих пикселей:
307200 пикселей * 4 бита = 1228800 бит
1228800 бит / 8 / 1024 = 150 кбайт.
Теоретиически - хватает (150 кбайт меньше 256 кбайт, значит изображение туда влезет). Но на практике видеопамять по 4 бита не адресуется. Она адресуется по 8 бит, то есть по 1 байту. А значит на пиксель не может быть отведено менее 8 бит памяти. Значит реально памяти нам потребуется в 2 раза больше: 150 * 2 = 300 кбайт. А это означает, что на практике 256 кбайт памяти нам для хранения этого изображения не хватит.
3. Палитра в 216 цветов подразумевает глубину цвета не менее 8 бит. То есть для хранения каждого пикселя нам потребуется 1 байт памяти.
Всего пикселей 256 * 256 = 65536 пикселей. Если на каждый по 1 байту, то нам потребуется 65536 байт памяти. 65536 байт / 1024 = 65 кбайт.
ответ: 65 кбайт.
const
N = 10;
var
B: array[1..N+1] of integer;
Sum, i, first_even_i: integer;
Begin
WriteLn('Введите массив: ');
For i := 1 to N do
Read(B[i]);
For i := 1 to N-1 do
if (B[i+1] mod 2 <> 0) then
B[i] := 0;
For i := 1 to N do
if (B[i] mod 2 = 0) then
begin
first_even_i := i;
break;
end;
For i := N+1 downto first_even_i + 1 do
B[i] := B[i-1];
B[first_even_i] := 0;
WriteLn('Среднее арифметическое всех элементов: ', Sum / (N + 1));
WriteLn('Получившийся массив: ', B);
End.