53 КБайт = 54272 Байт = 434176 бит
256 пикселей по вертикали и 256 по горизонтали - 256*256 всего 65536
Делим первое на второе, чтоб получить, какое максимальное количество бит мы можем потратить на один пиксель, получается 6.625 бит на пиксель. Поскольку биты нецелыми не бывают, округляем вниз, получается 6 бит на пиксель. В 6 бит можно хранить 2^6 вариантов, то есть 64.
Ответ - 64
500 байт = 0,5 кбайт=500 байт (т.к в одном кбайт 1000 байтов)
8 бит = 1 байт= 8 битов( т.к в одном байте 8 битов)
//PascalABC.Net 3.0, сборка 1064
const
nn=50;
var
a:array[1..nn] of integer;
i,n,imin:integer;
begin
Write('Введите количество элементов в массиве: '); Read(n);
Randomize;
Writeln('Исходный массив');
imin:=1;
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i;
end;
Writeln;
for i:=imin to n-1 do a[i]:=a[i+1];
Writeln('Массив-результат');
for i:=1 to n-1 do Write(a[i],' '); Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве: 15
Исходный массив
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2
Массив-результат
17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2
<em><u>А это версия для тех, кто думает, что Паскалю пора давно "на свалку":</u></em>
//PascalABC.Net 3.0, сборка 1064
begin
var n:=ReadInteger('Введите количество элементов в массиве');
var a:=SeqRandom(n,-25,25).ToArray();
Writeln('Исходный массив:',#13#10,a);
Writeln('Результат:',#13#10,a.Where(x->x<>a.Min));
end.
<em><u>Тестовое решение:</u></em>
Введите количество элементов в массиве 15
Исходный массив:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15]
Результат:
[-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15]
<em>Можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на Java, приведенной в предыдущем ответе.</em>