Проверьте пожалуйста,правильно или нет,а то я не очень хорошо поняла условие*^^*
Написать программу вычисления значений выражения,используя способ программирования с созданием функции пользователя
z=exp(x)*(1+cos(2*a))/(1+cos(2*b)) - вид выражения
cos(2*x) - вид функции (скажите,для чего это нужно?я не могу понять,куда это лепить в программе)
Вот ,собственно,что я надумала:)

program test;
uses crt;
var a,b,x,z:real;

function z1(x,a,b:real):real;
begin
z1:=exp(x)*(1+cos(2*a))/(1+cos(2*b));
end;

begin
clrscr;
write('x='); readln(x);
write('a='); readln(a);
write('b='); readln(b);
z:=z1(x,a,b);
writeln('z=',z:4:3);
readln;
end.

И вот еще одна задача,комцу не тяжело,помогите ее решить,а то я дуб-дубом:(
Три вектора состоят с n действительных компонент каждый. Распределить минимальные компоненты этих векторов в порядке увеличения. Назвать имена массивов,которым они принадлежат.
Заранее большое пребольшое спасибо.