Var
i, min, a, n: integer;
begin
min := trunc(power(2, 31) - 1);
readln(n);
for i := 1 to n do
begin
readln(a);
if (a < min) then
min := a;
end;
writeln(min);
end.
67 = 1000011 переводит надо делением на 2 столбиком и записывать остаток
Общее количество пикселей: 2500 * 1500 = 3750000 px
Память: 1.5 MB = 12582912 bit
На один пиксель приходится: 12582912 / 3750000, т.е максимум 3 бита.
При такой глубине цвета доступны 8 цветов.