Дан массив l, содержащий 40 элементов в интервале от 10 до 50, замените первый и последний элементы массива. заранее буду , сделайте в паскале.

Var a : array[1..n] of integer;
     b,i : integer;
begin
Randomize;
 for i:=1 to n do
 begin
  a[i]:=random(41)+10;
   write(a[i],' ');
end;
writeln;
 b:=a[1]; a[1]:=a[n]; a[n]:=b;
for i:=1 to n do write(a[i],' ');
writeln
end.

ответ: 9504 

var steps := 12; // За кол-во ходов
var Xend  := 6; // В точку с координатой X
var Yend  := 4; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin 
    if step = 0 then   
        vars += (X = Xend) and (Y = Yend) ? 1 : 0
    else   
        begin     
             Find(step - 1, X + 1, Y    );     
             Find(step - 1, X - 1, Y    );     
             Find(step - 1, X    , Y + 1);     
             Find(step - 1, X    , Y - 1);   
        end;
end; 
begin 
     Find(steps, 0, 0); 
     Print(vars);
end.

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var W:=ArrGen(ReadInteger('n='),i->2*Sin(i+1)+3*Cos(i+1));
  Write('W: '); W.Println;
  var R:=W.Where(t->t>W.Average).ToArray;
  Write('R: '); R.Println;
  Writeln('Позиция мах: ',R.IndexMax+1)
end.

Пример
n= 13
W: 3.30384888722021 0.570154344009936 -2.6877374736816 -3.47453585320669 -1.0668619929366 2.32167986355325 3.57567996046749 1.54221639182092 -1.90915381517052 -3.6052568090081 -1.98670331913725 1.45841604019661 3.56267441800387
R: 3.30384888722021 0.570154344009936 2.32167986355325 3.57567996046749 1.54221639182092 1.45841604019661 3.56267441800387
Позиция мах: 4