Коло 5 в ширіну та 5 в висату в скрейче

Для алфавита нужно выделить 5 бит на 1 символ

т.к.2^4=16 символов - мало

2^5=32

т.к. всего в пароле 15 символов то весить он будет

15*5=75 бит

1 пароль по условию кодируется минимально возможным целым количеством байт

75/8=9,375

т.е. для хранения пароля нужно 10 байт

Один пароль "весит" 10 байт.

У нас — 20 пользователей (и 20 паролей соответственно).

Следовательно, они "весят" 10х20 = 200 байт.

Для пользователей выделено дополнительно 10 байт, т.е. еще 200 байт на всех

т.е. для хранения сведений нужно 200+200 байт 400 байт

Var i,ne,ch,n:integer;
      a:array of integer; //объявление динамического массива
begin
write('Введите длину массива :');
readln(n);
randomize;
a:= new integer[n+1];// установка размера (n+1) динамического массива
for i:=1 to n do
      begin
      a[i]:=random(80)+20;
      write(a[i],' ');//Вывод на экран полученного массива                         
      if odd(a[i]) then inc(ne);// odd() - функция,определяющая нечетность числа.Возвращает значение True, если число нечетное
      end;                      //inc() - функция инкремент - увелечения на 1.
ch:= n-ne;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.