Ввести 20 елементів масиву (числа менші 100 ) за до генератора випадкових чисел. Вивести масив на екран. Знайти кількість непарних чисел в масиві. PascalABC 1

Px - обозначение пикселя

количество пикселей в изображении = ширина * высота

количество цветов = 2ⁱ^1 - глубина (битность) цвета,
т. е. количество бит на 1 px

2⁴ = 16 цветов
2⁸ = 256 цветов

8 бит = 1 байт

1.количество px в изображении = 200 * 100 = 20 000 px
битность => 16 цветов = 4 бит

20 000 * 4 = 80 000 бит
80 000 / 8 = 10 000 байт

ответ:
для изображения размером 200×100 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 10 000 байт

2.
количество px в изображении = 200 * 150 = 30 000 px
битность => 258 цветов = 8 бит

30 000 * 4 = 120 000 бит
120 000 / 8 = 15 000 байт

ответ:
для изображения размером 200×150 пикселей
при глубине цвета 4 бит (16 цветов)
необходимо 15 000 байт

3.
количество px в изображении = 20 * 30 = 600 px
256 цветов = 8 бит

600 * 8 = 4 800 бит
4 800 / 8 = 600 байт

4.
6 px = 2 * 3
2³ = 8 цветов

Двоичный код цветов 3-битной палитры:
R G B
1 1 1 белый
0 0 0 черный
1 0 1 малиновый
1 0 0 красный
0 0 1 синий
0 1 1 бирюзовый
0 1 0 зеленый
1 1 0 желтый

Изображение из 6 px
с основными цветами (без белого и черного):
мал кра син
бир зел жел

Двоичный код изображения:
101 100 001
011 010 110

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.