Чему будут равны элементы массивы А после выполнения цикла, если сначала массива был заполнен так: 1 2 3 4 5
А 1 2 3 4 5
а) for i:=1 to 4 do
A[i] := A[i + 1];

1) Высчитаем количество пикселей в изображении.

128 * 128 = 16384 пикселя.

2) Узнаем информационный вес каждого пикселя.

Формула нахождения информации N = 2i (где N - количество цветов в палитре, i - количество информации в битах, которое несет каждый пиксель).

256 = 28

Один пиксель несет 8 бит информации.

3) Найдем информационный вес изображения.

16384 * 8 = 131072 бита

4) Переведем биты в байты. 1 Байт = 8 битам.

131072 : 8 = 16384 байта.

5) Переведем байты в Кбайты. 1 Кбайт = 1024 байт.

16384 : 1024 = 16 Кбайт.

ответ: объем памяти нужен минимум 16 Кбайт.

const

  n = 10; //Количество чисел, которое нужно ввести
var
  a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}
  number, i: integer; //number - количество чисел

begin
  number:= 0; //Обнуляем счетчик
  for i:= 1 to n do //Вводим n двузначных чисел
  begin
    writeln('Введите двузначное число');
    readln(a[i]);
  end;
  write('Числа, которые делятся на 4,но не делятся на 6: ');
  for i:= 1 to n do  {Распечатываем числа, которые делятся на 4, но не делятся на 6}
    if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}
  begin
    write(a[i], ' ');
    number:= number + 1;
  end;
  writeln;
  writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);
end.