Насчет формулы не уверен, можешь подставить свою.
<em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Sort; a.Println
end.
<u>Пример</u>
n= 17
22 15 -9 3 5 -13 6 -40 -8 -16 22 -20 -29 -26 10 -43 -6
-43 -40 -29 -26 -20 -16 -13 -9 -8 -6 3 5 6 10 15 22 22
Они отличаются тем что переменной длины она работает но будет работать постоянно.
Символ = 6 бит ( 2^6=64 символа )
всего символов 26 * 65 * 5 = 8450
<span>всего бит 8450 * 6 = 50700 бит /8 / 1024 = 6 Кбайт</span>
Var y, x:integer;
begin
read(x);
y:=(abs(x-1))+(sqrt(x)/(sqr(x)*cos(x)))
write('y=',y);
end.