Пара задачек по Паскалю подробности внутри->

[Nexx]

Ребят это опять я здрасти))
1) Задан массив. Определить номер наибольшего элемента массива А и наибольшего значения среди модулей элементов массива А.
2)Составить циклический алгоритм и программу для вычисления рузультата по формулею Для проверки программы задать х=0,5, n=20.
формула такая: блин не могу написать но объясню может поймете, квадратный корень из (n^x +1) умножить на сумму от k=1 до n вот такой штуки (x^(2k-1)/sqrt(e^(kx) - 1/k) + sqrt(3)/2).

Решите срочно завтро утром уже нужно. Ваще в паскале не секу. Посоветуйте как быстро научиться ему.
Заранее спс.

[Nexx]

Тут надо все по простому там без всяких програмных модулей и т.п.

[XATAB]

1) Наибольший элемент:

uses crt;
var
 m: array[1..100] of integer;
 i,n,max,poz:byte;
begin
 clrscr;
 randomize;
 write('Введите размерность массива '); readln(n);
 for i:=1 to n do
  m[i]:=random(19)+1;
 max:=m[1];
 poz:=1;
 for i:=1 to n do
  begin
   if m[i]>max then
    begin
     poz:=i;
     max:=m[i];
    end;
  end;
 for i:=1 to n do
  write(m[i]:3);
 writeln;
 writeln('Максимальный элемент на ',poz, ' месте');
 readln;
end.

[Nexx]

номер наибольшего значения среди модулей элементов массива А сдесь же надо если я не ошибаюсь

[Alex21]

program naib_i_naibpomodulu;
const
SizeA = 10;
var
a:array[1..sizeA] of integer;
i,max,maxabs:integer;
procedure CreateMass;
begin
Randomize();
  for i := 1 to sizeA do
    begin
      a[i]:=Random(10)-Random(10);
      write(a[i],' ');
    end;
end;
procedure FindMax;
begin
  max:=1;
  for i := 1 to sizeA do
    begin
      if a[max] < a[i] then
        max:=i;
    end;
    writeln('');
    writeln('  Max zna4enie = ',a[max],' = (#',max,')');
end;
procedure FindMaxAbs;
begin
  maxabs:=1;
  for i := 1 to sizeA do
    begin
      if abs(a[maxabs]) < abs(a[i]) then
        maxabs:=i;
    end;
    writeln('');
    writeln('|Max zna4enie| = ',abs(a[maxabs]),' = (#',maxabs,')');
end;
begin
  CreateMass;
  FindMax;
  FindMaxAbs;
  readln;
end.

[Alex21]

program funct;
const
x=0.5;
n=20;
var
sum,rez:real;
i,k:integer;
 
{функция суммы}
function f(k:integer):real;
var
f1,f2,f3:real;
begin
f1:=exp(ln(x)*(2*k-1));
f2:=sqrt(exp(k*x)-(1/k));
f3:=sqrt(3)/2;
f:=f1/f2+f3;
end;
 
{функция первого корня}
function af(const n,x:real):real;
begin
  af:=sqrt(exp(ln(n)*x)+1);
end;
 
begin
Sum:=0;
  for k :=1 to n do
    begin
      sum:=sum+f(k);
    end;
rez:=af(n,x)*sum;
writeln('f = ',rez:8:5);
readln;
end.

[Alex21]

Если формула выглядит так: