Заполнить массив из 15 элементов случайным образом вещественными значениями, лежащими в диапазоне от 22 до 23. найти произведение всех элементов массива. увеличить все элементы на число b.

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 pro,i,k:uint64;
begin
 randomize;
 pro:=1;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(22,23); //Серьёно?
   write(ar[i]:4); 
  pro:=pro*ar[i];
  end;
 writeln;
 writeln('Pro=',pro);
 write('Enter value:');
 readln(k);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]+k;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  23  23  22  22  22  22  23  23  23  22  23  22  22  23  23
Pro=10868183115618730368
Enter value:3
Final array:
    26    26    25    25    25    25    26    26    26    25    26    25    25    26    26

1) 8=2^3. Каждый цвет весит 3 бита

2) 2^7=128. Глубина цвета 128

3) 512=2^9. Для каждого цвета выделяется 9 бит

4) Количество пикселей (точек)=256*512=(2^8)*(2^9)=2^(8+9)=2^17 px.

Определим вес каждого пикселя: 16=2^4, те каждый пиксель весит 4 бита

Вес картинки=(2^17)*4=(2^17)*(2^2)=2^(17+2)=2^19 бит=(2^19):(2^13)=2^6=64 Кбайта

5) вес изображения 64 Кбайта=(2^6)*(2^13) бит=2^19 бит.

Количество пикселей=1024*512=(2^10)*(2^9)=2^19 px

Вес каждого пикселя: 2^19 бит/2^19 px=1 бит

Количество цветов в палитре=2^1=2 цвета в палитре

6) Палитра RGB (Red-Green-Blue), по 2 шестнадцатеричной цифры на цвет.

Задача1.

Дано: N=256

Найти: i= ?

Решение : 2^i=N (2^i=256 , 256=2^8 , то есть i=8 бит  )

Задача2.

Дано: N=16 ; k=20*20

Найти: V=?

Решение : V=i*k;  2^i=16 --> i=4 бит ; V=4*20*20=1600 бит .

Задача 3.

Дано: k=256*128 ; N=128

Найти: V=? Кб

Решение: (таже формула , что и сверху ) i=7 бит

V=7*256*128=229376 бит

теперь переводим в КилоБайты ( 229376 /8 =28672 (байт) ; 28672 / 1024 = 28 Кб.

Задача 4.

Дано: V=96 байт (768 бит ) ; N=24

Найти : k=?

Решение : V=i*k отсюда k= V/i  (в данном случае i  не знаю как вывести )

k=768/24=32 ( пикселей в изображении).

Задача 5.

Дано: k=128*64 ; V=16 Кб(131072 бит )

Найти: N=?

Решение: V=i*k ; i=V/k (131072/ 128*64=16  ).