var a:array [1..10] of integer;
maxi,mini,max,min:integer;
Begin
maxi:=2;
mini:=2;
for i:= 1 to 10 do Begin
read(a[i]);
if i=2 then begin
max = a[i]-a[i-1];
mix = a[i]-a[i-1];
end;
if i>2 and max < a[i]-a[i-1] then begin
max = a[i]-a[i-1];
maxi = i;
end;
if i>2 and min > a[i]-a[i-1] then begin
mix = a[i]-a[i-1];
mixi = i;
end;
end;
writeln('min: a[',mini,'] - a[',mini-1,'] = ',min);
writeln('max: a[',maxi,'] - a[',maxi-1,'] = ',max);
End.
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
