Паскаль 2 задачи

[ProPaL]

Плз кому не сложно напишите текст очень надо...
Задание1:

Дано X
Определить
clip_image002.gif

Задание2:

Дан массив P1, ... , P40.
Заменить Pmax и Pmin на среднее арифметическое всего ряда.

[Stilet]

На первое, по памяти:

var i:integer;summ:extended;
for i:=1 to 20 do summ:=summ+(exp(2*i*ln(x))/i);

[Abbatik]

Код на паскале:
Задание №2.

uses crt;
var p:array[1..40] of integer;
p1,p2,pmax,pmin,psr,i:integer;

begin
clrscr;
randomize;
for i:=1 to 40 do begin
p[i]:=random(50);
write(p[i]:4);
end;
p1:=1;
p2:=1;
pmax:=p[1];
pmin:=p[1];
for i:=1 to 40 do begin
if pmax<p[i] then begin p1:=i; pmax:=p[i]; end;
if pmin>p[i] then begin p2:=i; pmin:=p[i]; end;
psr:=psr+p[i];
end;
psr:=psr div 40;
p[p1]:=psr;
p[p2]:=psr;
writeln;
writeln('srednee arifm-oe=',psr);
writeln('max=p[',p1,']=',pmax);
writeln('min=p[',p2,']=',pmin);
writeln;
for i:=1 to 40 do begin
write(p[i]:4);
end;

end.

Используем тег [code]. # - на панели инструментов в расширенном режиме. Модератор.

[ProPaL]

Спасибо большое за 2-ю!!! Вот только 1-я не получается... Можете написать полный текст к 1ой плз