Помогите кто-нибудь решить проблему...

[J-7]

Люди добрые, помогите решить кто-нибудь.
1)
program z4;
uses crt;
var x,y:array [1..10] of real;
i,k:integer;
p:real;
begin
clrscr;
x[1]:=5.2;x[2]:=-4.7;x[3]:=1;x[4]:=9.22;x[5]:=-8.3;
x[6]:=-9.52;x[7]:=0.75;x[8]:=8.9;x[9]:=-4.2;x[10]:=1.3;
p:=0;
for i:=1 to 10 do
p:=p+x[i];
k:=0;
for i:=1 to 10 do
if abs(x[i])<=p then begin
k:=k+1;
y[k]:=x[i];
end;
if k>0 then for i:=1 to k do write(y[i]:3:2,' ')
else write('iskomih elementov net');
end.

2)
program z5;
uses crt;
const n=4;m=6;
var a:array [1..4,1..6] of real;
i,j:integer;
s1,s2:real;
begin
clrscr;

for i:=1 to n do begin
for j:=1 to m do begin
if j-i>2 then a[i,j]:=exp(-3/2*i)+exp(3/2*ln(abs(j-i)))
else a[i,j]:=1.987*i+cos(3*pi/j);
write(a[i,j]:3:2,' ');
end;
writeln;
end;
for i:=1 to m do
s1:=s1+a[1,i];
s1:=s1/m;
for i:=1 to m do
s2:=s2+a[n,i];
s2:=s2/m;
for i:=1 to m do
if a[1,i]>s1+s2 then writeln(a[1,i]:3:2,' ',i);
for i:=1 to m do
if a[n,i]>s1+s2 then writeln(a[n,i]:3:2,' ',i);
readln;
end.

Сразу предупрежу, это не мне нужно, так как в этом не разбираюсь. Но очень нужно.

[Kostia]

это не мне нужно. Но очень нужно

Улыбнуло

В общем, что требуется? Есть код, он что-то делает, но задача не понятна.

[J-7]

Я задание вот сюда залил http://rapidshare.com/files/23400421...___1081__.html

Там просто слишком много тут писать

[J-7]

Модераторы, удалите тему, нашёл я кто мне поможет