Помоему так...
const n=10;
var a:array[1..n] of integer; i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10);
write(' ',a[i]);
end;
writeln;
for i:=1 to n do begin
if ((i mod 2) = 0) then
a[i]:=a[i]*2
else
a[i]:=a[i]*3;
end;
writeln('Конечный массив: ');
for i:=1 to n do
write(' ',a[i]);
<span>end.</span>
Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
запишем условие: страниц=1264, строк=85, символов=70, i=8 бит M-?
решение: вычислим общее количество символов в тексте
K=1264*85*70=752080
вычислим информационный объем текста I=K*i=7520800*8=60166400 бит=7344.53 Кб =7.17Мб
Разделим объем диска на информационный объем 1 копии романа и узнаем кол-во копий на диске
М=700/7,17=97 копий это и есть ответ
Ip адрес нужен для идентификации в сети, для адресации данных или связаться с другими компьютерами. Примерно так.