<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
var (imax,imin):=(a.IndexMax,a.LastIndexMin);
Swap(a[imin],a[imax]); a.Println
end.
<u>Пример</u>
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5
Ответ:
a = int(input())
b = int(input())
if a==0 and b!=0: # если a=0 и b не равен 0 , то решения
#быть не может
print("no solution") # 0 умноженное на любое число даст 0
if a==0 and b==0: # в случае же когда a и b = 0 то x может
print("many solutions") #принимать любое значение
if a!=0 and b!=0:
print ("x будет равен :" , a//b) #вывод решения уравнения
128=, значит вес одного символа 7 бит.
30*7=210 бит.
Ответ: 210 бит.
Кол-во символов=65536, объем=24Кбайт
инф.объем одного символа=24*1024*8бит/65536=3 бита
мощность N=2³=8 символов в алфавите