Найти наибольшее из нечетных компонент каждого столбца и наименьшее из четных компонент произвольной матрицы

Для всех заданий воспользуемся формулой N=2^i? где N -количество цветов, а i -количество бит на 1 пиксель.
Задача 1.
N=2^4=16 цветов.

Задача 2.
N=224=2^i, поскольку для кодирования 128 цветов необходимо 7 бит, а для кодирования 256 цветов -8 бит, выбираем большее число, то есть 8 бит или 1 байт.

Задача 3.
65536 это 2^16⇒требуется 16 бит или 2 байта.

Задача 4.
1. Узнаем общее количество пикселей 1280*1024=1310720
2. Полученное число умножаем на глубину цвета 1310720*32=41943040 бит = 41943040/8 = 5242880 байт = 5242880/1024 = 5120 кб =5120/1024 = 5 Мб
ответ: 5 Мб

var
  a:array[1..1000] of integer;
  n, i, j:integer;
  flag:boolean;
begin
  a[1] := 0;
  write('n = '); readln(n);
  for i := 2 to trunc(sqrt(n)) do
    if n mod i = 0 then
    begin
      a[1] := i;
      n := n div i;
      break;
    end;
  if a[1] = 0 then
  begin
    writeln(n);
    Exit;
  end;

  i := 1;
  while n <> 1 do
  begin
  flag := false;
    for j := a[i] to trunc(sqrt(n)) do
      if n mod j = 0 then
      begin
        a[i + 1] := j;
        inc(i);
        n := n div j;
        flag := true;
        break;
      end;
    if (not flag) and (n <> 1) then
    begin
      a[i + 1] := n;
      inc(i);
      break;
    end;
  end;

 

 

//Вторая программа

 

const
m = 4;
n = 3;
var
a:array[1..m, 1..n] of integer;
i, j, Pr:integer;
begin
randomize;
Pr := 1;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(21) - 10;
if a[i, j] > 0 then
Pr := Pr * a[i, j];
write(a[i, j]:4, ' ');
end;
writeln;
end;

writeln;
writeln('Преобразованный массив');
for i := 1 to m do
begin
for j := 1 to n do
if a[i, j] < 0 then
write(Pr:8, ' ')
else
write(a[i, j]:8, ' ');
writeln;
end;
readln;
end.

  for j := 1 to i do
    write(a[j], ' ');
  readln;
end.