Создать массив, записать в него значения функции, найти макс и мин элементы и заисать в текстовый файл.

restart;
A:=array(1..10):
F:=x->piecewise(x<=3,sin(x),3<x and x<=6,cos(x),6<x and x<=10,exp(x)):
for i from 1 to 10 by 1 do
A[i]:=evalf(F(i)):
end do:
B:=convert(A,list):B; B1:=B:
MAX:=B[1]: MIN:=B[1]:
NMAX:=1: NMIN:=1:
for i from 2 to 10 by 1 do
if B[i]>MAX then MAX:=B[i]: NMAX:=i: end if:
if B[i]<MIN then MIN:=B[i]: NMIN:=i: end if:
end do:
print("Минимальный элемент = ", MIN);
print("Максимальный элемент = ", MAX);
Z:=B[NMAX]:B[NMAX]:=B[NMIN]:B[NMIN]:=Z:B;
fd := fopen("D:/file1.txt", WRITE): B1:=convert(B1,string): fprintf(fd,B1): fclose(fd):
fd := fopen("D:/file2.txt", WRITE): B:=convert(B,string): fprintf(fd,B): fclose(fd):

restart;
A:=array(1..10):
F:=x->piecewise(x<=3, 4*x + 2, 3<x and x<=6, 5/(x + 0.4), 6<x and x<=10, 0.5/(2*sin(4*x))):
for i from 1 to 10 by 1 do
A[i]:=evalf(F(i)):
end do:
B:=convert(A,list):B; B1:=B:
summa:=0: kolvo:=0:
for i from 1 to 10 by 1 do
if B[i]>=5 and B[i]<=15 then summa:=summa+B[i]: kolvo:=kolvo+1: end if:
end do:
SREDNEE:=evalf(summa/kolvo):
print("Среднее значение = ", SREDNEE);
SREDNEE;
fd := fopen("D:/file1.txt", WRITE): B1:=convert(B1,string): fprintf(fd,B1): fclose(fd):
fd := fopen("D:/file2.txt", WRITE): B:=convert(SREDNEE,string): fprintf(fd,B): fclose(fd):