101011011=1*2^0+1*2^1+1*2^3+1*2^4+1*2^6+1*2^8=1+2+8+16+64+256=347
100011001=1*2^0+1*2^3+1*2^4+1*2^8=1+8+16+256=281
1110101001=1*2^0+1*2^3+1*2^5+1*2^7+1*2^8+1*2^9=1+8+32+128+256+512=937
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.
Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8
Если цветовая палитра имеет 64 цвета, значит один пиксель занимет 6 бит информации, т к 2^6=64, из этого следует 1920*180*6=2 073 600 бит, чтобы записать ответ в МБ, нужно полученное число разделить на 2^23. Получится приблизительно 0,25 МБ