Ответ:
5-қозғалыс можно 3-4 сорри
Забей в поисковике: Мутный взгляд 1: cлучай в Саратове
Готово. Не пугайтесь swap, просто благодаря ему "пузырёк" выглядит лучше. Программа во вложении.
UPD: Чтобы увеличить рандомность генерации массива, измените аргумент в функции random из первого цикла.
Var x,f: real;
Begin
write('x = ');
readln(x);
if x<=-2
then f:=sin(x+1)
else if x<1 then f:=exp(x-1)/5
else f:=ln(abs(exp((1/3)*ln(x+2))));
writeln('f = ',f);
End.
Пример:
x = 5
f = 0.648636716351771