Рисунок размером 64 на 256 пикселей занимает в памяти 16 кбайт (без учёта сжатиянайдите максимальное возможное количество цветов в палитре изображения.

64 * 256 = 16384 пикселей на изображении

16*1024 = 16384 байт памяти выделенного для изображения

16384 / 16384 = 1 байт информации хранит в себе 1 пиксель

1 байт позволяет хранить до 256 уникальных значений.

следовательно 256 цветов поддерживается

Const
  n = 15;

var
  x: array[1..n] of integer;
  i, k, t, min: integer;

begin
  Randomize;
  Writeln('Исходные элементы массива');
  min := 1000;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
    if min > x[i] then begin
      min := x[i];
      k := i
    end
  end;
  t := x[k]; x[k] := x[1]; x[1] := t;
  Writeln;
  Writeln('Результирующие элементы массива');
  for i := 1 to n do Write(x[i]:4);
  Writeln
end.

Исходные элементы массива
 -28 -22 -15   3  27  29  34 -29 -49 -37 -19  31  40 -36   4
Результирующие элементы массива
 -49 -22 -15   3  27  29  34 -29 -28 -37 -19  31  40 -36   4

Const
  nm = 50;{максимальная длина массива}

var
  i, n, max, p: integer;
  a: array[1..nm] of integer;

begin
  Write('Введите количество элементов в массиве: ');
  Readln(n);
  max := -32768;
  Write('Введите элементы массива через пробел ');
  for i := 1 to n do
  begin
    Read(a[i]);
    if max <= a[i] then
    begin
      max := a[i]; p := i
    end
  end;
  Writeln('Последний максимальный элемент ', max, ' имеет номер ', p)
end.

Тестовое решение:

Введите количество элементов в массиве: 10
Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5
Последний максимальный элемент 6 имеет номер 7