Type mas=Array [1..15] of integer; var i,s:integer; a:mas; begin randomize; for i:=1 to 15 do begin A[i]:=random(-2,7); writeln(A[i]); S:=S+A[i]; end; writeln(S); end.
Каждый из возможных символов должен использовать минимально возможное количество БИТ, следовательно : 25 букв + 10 цифр = 35 символов. Для их хранения требуется узнать минимальное количество бит, (Степень цифры 2), поэтому: ( так как 2^5 < 35 < 2^6) получается, что использовать менее 6 бит нельзя. Таким образом, при 6 битах на символ, номер, содержащий 7 символов определяется: 7 * 6 = 42 бита. Так как номер записывается минимально возможным количеством БАЙТ, то объём его в БИТАХ должен быть кратен 8 и в случае необходимости округляться в большую сторону. Ближайшее число кратное 8 - это 48. 48 / 8 = 6 байт. 6 БАЙТ занимает 1 номер. Таким образом, 6 * 80 = 480 байт.
Каждый из возможных символов должен использовать минимально возможное количество БИТ, следовательно : 25 букв + 10 цифр = 35 символов. Для их хранения требуется узнать минимальное количество бит, (Степень цифры 2), поэтому: ( так как 2^5 < 35 < 2^6) получается, что использовать менее 6 бит нельзя. Таким образом, при 6 битах на символ, номер, содержащий 7 символов определяется: 7 * 6 = 42 бита. Так как номер записывается минимально возможным количеством БАЙТ, то объём его в БИТАХ должен быть кратен 8 и в случае необходимости округляться в большую сторону. Ближайшее число кратное 8 - это 48. 48 / 8 = 6 байт. 6 БАЙТ занимает 1 номер. Таким образом, 6 * 80 = 480 байт.
var i,s:integer;
a:mas;
begin
randomize;
for i:=1 to 15
do begin
A[i]:=random(-2,7);
writeln(A[i]);
S:=S+A[i];
end;
writeln(S);
end.