Программа:
Pascal:
№1)
const max = 100;
var
arr: array[1..max] of real;
i: integer;
n, A, B: integer;
begin
randomize;
repeat
write('n = ');
readln(n);
until n in [1..max];
write('A = '); readln(A);
write('B = '); readln(B);
writeln('Массив: ');
for i := 1 to n do begin
arr[i] := random(B - A + 1) + A;
write(arr[i]:5:1);
end;
end.
№2)
const max = 100;
var
arr: array[1..max] of real;
A, B, s, pr: real;
n, i, j, arrMax, arrMin: byte;
begin
randomize;
s := 0;
arrMax := 1;
arrMin := 1;
repeat
write('n = ');
readln(n);
until n in [1..max];
write('A = '); readln(A);
write('B = '); readln(B);
writeln('Массив: ');
for i := 1 to n do begin
arr[i] := random(B - A + 1) + A;
write(arr[i]:5:1);
end;
for i := 1 to n do begin
if abs(arr[i]) < abs(arr[arrMin]) then arrMin := abs(i);
if abs(arr[i]) > abs(arr[arrMax]) then arrMax := abs(i);
end;
if abs(arrMax - arrMin) = 1 then begin
writeln(); writeln('Между минимальным и максимальным значениями нет элементов.')
end
else begin
if arrMax < arrMin then begin
j := arrMin;
arrMin := arrMax;
arrMax := j;
end;
pr := 1;
for i := arrMin + 1 to arrMax - 1 do pr := pr * arr[i];
writeln(); writeln('Произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами: ', pr:0:2);
end;
end.
16
Объяснение:
1. Алфавит мощностью 26 символов требует для кодирования символа 5 бит (2⁴ < 26 < 2⁵). 22 символа займут 22×5 = 110 бит = 110 / 8 = 13.75 байта, округляем до целого вверх, получаем 14 байт.
2. Номер года обозначается одним из 100 чисел. 2⁶ < 100 > 2⁷, поэтому для кодирования требуется 7 бит.
3. Номер для обозначается одним из 366 чисел. 2⁸ < 366 > 2⁹, поэтому для кодирования требуется 9 бит.
4. Всего для кодирования срока действия потребуется 7+9 = 16 бит = 16/2 = 2 байта
5. Вся информация на пропуске займет 14+2 = 16 байт