Сначала найдем объем одного пароля. Для этого надо определить объем одного символа. Мощность алфавита равна 7-ми, то есть каждый символ в пароле принимает одно из семи значений, значит объем одного символа равен 3 битам, т.к. 2^3=8, а двумя битами (2^2=4) семь символов закодировать нельзя.
Длина пароля - 6, объем пароля равен 6*3 = 18 бит
Каждый пароль кодируется одинаковым и минимально возможно целым количеством байт, разделим 18 на 8 18:8 = 3 (нужно именно целое число, два байта - это 2*8=16 бит, у нас 18 бит, значит требуется 3 байта).
Кроме пароля на каждого пользователя выделяется 10 байт. То есть общий объем сведений на одного пользователя равен 10+3 = 13 байт.
Объем данных о 100 пользователей равен 13*100 = 1300 байт.
Var ar:array of integer; n,i,min,mini:integer; begin randomize; min:=2147483647; writeln('Введите размерность:'); readln(n); setlength(ar,n); writeln('Array:'); for i:=0 to n-1 do begin ar[i]:=random(-30,30); write(ar[i]:4); if min>=ar[i] then begin min:=ar[i]; mini:=i; end; end; for i:=0 to mini-1 do if ar[i]<0 then ar[i]:=0; writeln; writeln('Final array:'); for i:=0 to n-1 do write(ar[i]:4); end.
Пример ввода: 5 Пример вывода: Array: -3 -26 -2 18 -21 Final array: 0 -26 -2 18 -21
ответ:1.Купить семена (цветка) 2.Найти хорошое место для посадки цветочка 3.Вскопать яму. 4.Посадить семя. 5.Закопать яму. 6.Полить
Объяснение: