1.var a:array[1..100] of integer;
n,s,i:integer;
begin
write('Количество элементов=');
readln(n);
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then a[i]:=-a[i]
else a[i]:=abs(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.
Ip адрес нужен для идентификации в сети, для адресации данных или связаться с другими компьютерами. Примерно так.
I1 = 5 бит / 1 символ
i2 = 6 бит / 1 символ
6/5 = 1,2 раза.
В 1.2 раза различаются инф. объемы текстов.
Чтобы программировать и создавать программы