Для алфавита нужно выделить 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 байт
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.