var
arr:array[1..1000] of integer;
i,N:integer;
max:integer;
begin
max:=1;
write('Укажите кол-во эл-ов - ');
read(N);
for i:=1 to N do//Присваивание и вывод массива
begin
arr[i]:=1+random(100);
write(arr[i],' ');
if arr[i]>max then max:=arr[i];
end;
writeln;
writeln('Максимальный эл-т - ',max);
for i:=1 to N do//Увеличение чет. эл-ов
begin
if arr[i] mod 2=0 then arr[i]:=arr[i]+max;
write(arr[i],' ');
end;
end.
Объяснение:
задача 1
запишем условие: строк=40, символов=50, страниц=10, I=12500 байт, N-?
решение: посчитаем общее кол-во символов в тексте К=40*50*10=20000
переведем информационный объем в биты I=12500*8=100000 бит
из формулы I=K*i найдем i: i=I/K=100000/20000=5бит
из формулы мощности алфавита найдем мощность
N=2^5=32 это и есть ответ
задача2
запишем условие: страниц=180, символы=2048, N=128, I(Кб)-?
решение: вычислим общее кол-во символов в тексте
К=180*2048=368640
найдем вес одного символа алфавита N=2^i, 128=2^i, 2^7=2^i, i=7 бит
подсчитаем информационный объем текста I=368640*7=2580480 бит=
322560 байт=315 Кб это и есть ответ
задача3
запишем условие: N=87, K=200, I-?
решение: из формулы мощности алфавита найдем i с учетом того, что 87 не является целой степенью двойки. ближайшая мощность алфавита -64, поэтому i=6 бит
вычислим информационный объем I=K*i=200*6=1200 бит/8=150 байт
