Создать одномерный массив с генератора случайных чисел, содержащий целые числа из диапазона от -20 до +80. к элементам с четными номерами прибавить а, а из элементов с нечетными номерами вычесть в. а и в вводятся с клавиатуры. решите через процедуру или функцию.

//Pascal ABC.NET v3.0 сборка 1111

var
 i,a,b:integer;
 ar:array[1..10] of integer;

 procedure oddDec(var a,b:integer);  //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;

procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;

begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
 begin;
  ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
  write(ar[i]:4); //вывод
  if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
  {если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
 end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.

Пример ввода:
20
10
Пример вывода:
Array:
  10  16   0  60  23   4  22 -20   4  55
Final array:
   0  36 -10  80  13  24  12   0  -6  75  

Символы для формирования пароля выбираются из алфавита размером 10+2*11=32 символа, которым будут присвоены коды от до 31. переводим 31 в двоичную ссисткму счисления, получая 11111, т.е. для хранения каждого символа алфавита потребуется 5 бит. Тогда весь пароль займет 5*15=75 бит, но он должен размещаться в целом количестве байт. 75/8=9.375, следовательно потребуется 10 байт.
Для хранения 30 паролей потребуется объем 10*30=300 байт.

Что такое И=20 номеров я не понял. В условии понятие "номер" отсутствует.

Формула Шенона: 2^I=N, где N - объём информации, I - количество бит.
I = [log_2 (N)]  - округление в большую сторону
1 байте = 8 бит.

Задача 1
Трижды запускается либо красная, либо зелёная ракета.
N = 2^3 = 8
ответ: 8

Задача 2
I = [log_2 (800)]  = [9.6438] = 10 бит на ученика
Объём 320 учащихся  = 320 * 10 = 3200 бит = 400 байт
ответ: 4

Задача 3
I = [log_2 (10+12+12)]  = [5.0875] = 6 бит на символ
6 * 11 = 66 бит = 8.25 байт ~= 9 байт
9 * 60 = 540 байт
ответ: 3

Задача 4
I = [log_2 (5*5)]  = [4.6439] = 5 бит на клетку
15 ходов + начальная позиция = 16 клеток
16 * 5 бит = 80 бит = 10 байт
ответ: 1