Рисунок размером 128 на 256 пикселей занимает в памяти 24 Кбайт (без учёта сжатия). Найдите максимально возможное количество цветов в палитре изображения. - После преобразования растрового 256-цветного графического файла в 16-цветный формат его размер уменьшился на 15 Кбайт. Каков был размер исходного файла в Кбайтах?
Uses crt;
Type R=array[1..100] of integer;
Var
A:R;
i,n,s,pr,k,sum:integer;
Begin
clrscr;
pr:=1;
k:=0;
sum:=0;
writeln('Введите размер массива');
readln(n);
writeln('Введите значение S');
readln(s);
writeln('Введите массив');
for i:=1 to n do
begin
write('A[',i,']= ');
read(A[i]);
writeln;
if A[i]<=s then
pr:=pr*A[i];
if A[i]=1 then
k:=k+1;
if A[i]=A[1] then
sum:=sum+A[i];
end;
writeln('Массив после преобразования');
for i:=1 to n do
begin
if A[i]<>i then
A[i]:=sum;
writeln(A[i]:4);
end;
writeln;
writeln('произведение элементов вектора, не превышающих число S: ', pr);
writeln('количество единичных элементов массива: ', k);
end.