я написал ,но у меня почему-то в 3 (ошибка с плавающей запятой),а в 5 упорядочил все и как убрать отрицательные не знаю.
Program ss;
uses Crt;
const n=3; m=13;
var
W:array[1..n,1..m] of integer;
T:array[1..n,1..m] of integer;
i,j,A,B,l,c,r,min,ind,x,q:integer; k,Sg:real;
begin
Clrscr;
randomize;
writeln('#1.');
for i:=1 to n do begin
for j:=1 to m do begin
W[i,j]:=-7+random(18);
write(W[i,j]:4);
end; writeln; end; writeln; writeln('#2');
A:=0;
for i:=1 to n do
for j:=1 to m do begin
A:=A+1;
T[A]:=W[i,j];
write(T[A]:4);
end; writeln ;writeln;
writeln('#3');
for i:=1 to (39 div 3) do
if T[i] mod <>0 then
if T[i]<>0 then begin
k:=k+1*T[i];
l:=l+1;
end;
else B:=1;
if B=0 then begin
Sg:=exp(ln(k)/l);
writeln(Sg:0:2);
end
else writeln ('Ошибка');
writeln;
writeln('#4');
readln(c); r:=A div 3 ;
min:=18;
ind:=2;
for i:=2*r to A do
if (T[i]<0)and(min>abs(c-T[i])) then begin
min:=abs(c-T[i]);
ind:=i;
end;
writeln('bliz chislo ');
writeln;writeln;
write('#5');
for i:=1 to n*m-1 do
for j:=1 to n*m-1 do
if (T[j]>T[j+1]) then begin
q:=T[j];
T[j]:=T[j+1];
T[j+1]:=q;
end;
for i:=1 to n*m do
write(T[i]:4);
readkey;
end.
Посмотрите,если не сложно)