Векторы:(

       exp(sqrt(i+1))   если sin i>0.4
   xi=   
       ctg i            если sin i<= 0.4

const
  n=6;
var
  a:array[1..n]of integer;
  min,max,i:integer;
{основная программа}
begin
  {задаем и выводим вектор}
  writeln('Вектор:');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln;
  {нахождение наименьшего и наименьшего компонента}
  min:=a[1];
  max:=a[1];
  for i:=2 to n do
  begin
    if a[i]<min then
      min:=a[i];
    if a[i]>max then
      max:=a[i]
  end;
  {проверка условий}
  if a[1]>=0 then
    for i:=1 to n do
      a[i]:=a[i]*sqr(min)
  else
    for i:=1 to n do
      a[i]:=a[i]*sqr(max);
  writeln('Минимум = ',min,' Максимум = ',max);
  {выводим}
  writeln('Полученный вектор:');
  for i:=1 to n do
    write(a[i],' ');
  writeln;
end.

uses crt;
const
   n = 10;
var
   x:array[1..n] of real;
   i:integer;
begin
     clrscr;
     for i:= 1 to n do
     begin
          if sin(i)>0.4 then
          begin
               x[i] := exp(sqrt(i+1));
               writeln(x[i]:6:2);
          end
          else
          begin
               x[i] := cos(i)/sin(i);
               writeln(x[i]:6:2);
          end;
     end;
     readkey;
end.