// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию! begin var Z:=ArrRandom(ReadInteger('n='),1,99); Writeln('Массив Z'); Z.Println; Writeln('Массив X'); var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]); X.Println; Writeln('Массив Y'); var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]); Y.Println end.
Пример n= 8 Массив Z 74 17 35 3 33 84 48 39 Массив X 19.5 1.5 42 8.5 Массив Y 16 11.6666666666667 11 24.6666666666667
Вес текста = 59 * 16 бит = 944.0 бит = 118.0 байт = 0.115234375 Кбайт = 0.0001125335693359375 Mбайт
2:
Вес текста = 16 * 30 * 32 * 16 бит = 245760.0 бит = 30720.0 байт = 30.0 Кбайт = 0.029296875 Mбайт
3:
Вес символа = 25 * 8 * 1024 бит / (8 * 40 * 64 бит) = 10.0 бит
4:
Вес текста = 1024 * 64 * 64 * 8 бит = 33554432.0 бит = 4194304.0 байт = 4096.0 Кбайт = 4.0 Mбайт
5:
Вес текста = 52 * 16 бит = 832.0 бит = 104.0 байт = 0.1015625 Кбайт = 9.918212890625e-05 Mбайт
6:
Вес текста = 16 * 35 * 64 * 8 бит = 286720.0 бит = 35840.0 байт = 35.0 Кбайт = 0.0341796875 Mбайт
// Внимание! Если программа не работает, обновите её версию!
begin
var Z:=ArrRandom(ReadInteger('n='),1,99);
Writeln('Массив Z'); Z.Println;
Writeln('Массив X');
var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);
X.Println;
Writeln('Массив Y');
var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);
Y.Println
end.
Пример
n= 8
Массив Z
74 17 35 3 33 84 48 39
Массив X
19.5 1.5 42 8.5
Массив Y
16 11.6666666666667 11 24.6666666666667