Помогите найти ошибку. Паскаль

[Паскалька^^]

Задача:
Дан двумерный массив n*m. Упорядочить элементы в каждой строке по возрастанию. В получившемся массиве найти сумму элементов по столбцам и из полученных сумм создать новый массив

Program P1;
const
    n=100;
    m=100;
    l=100;
var
    a:array [1..n,1..m] of integer;
    new:array [1..l] of integer;
    g:real;
    sum,k,i,j:integer;
begin
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        writeln(a[i,j]);
        readln(a[i,j]);
      end;
    end;
    for i:=2 to n do
    begin
      for k:=i downto 2 do
      begin
        if a[i]>a[i-1] then
        begin
          g:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=g;
        end;
      end;
    end;
    sum:=0;
    for j:=1 to m do
    begin
      for k:=1 to l do
      begin
        new[k]:=sum+a[j];
      end;
    end;
    writeln('New array:',new);
end.

[notHaker]

for i:=2 to n do
    begin
      for k:=i downto 2 do
      begin
        if a[i]>a[i-1] then
        begin
          g:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=g;
        end;
      end;
    end;

Странно... У вас ведь вроде двумерный массив...

[Паскалька^^]

точно....спасибо!)

[notHaker]

ну а вабще (по проще, без бинарных вставок ), сортировка такая...

for i := 1 to n do
for j := 1 to m do
for k := j to m do
 if a[i,k] < a[i,j] then
  begin
    g := a[i,k];
    a[i,k] := a[i,j];
    a[i,j] := g;
  end;

Всё!!! Только g - integer, а не real.

[Паскалька^^]

Большое спасибо!

[cobrita24]

Помогите пожалуйста решить очень нужно!!!! не могу написать код

4.Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица [aij] i, j = 1, ..., n, если aij=cos(t в квадрате +n);

5.Дано действительное число х. Вычислить с точностью 10 в-6 степени: сумма 1/x в квадрате+ к в кубе, где к от 1 до бесконечности

Заранее спасибо!!!!

[notHaker]

Сообщение от cobrita24

Помогите пожалуйста решить очень нужно!!!! не могу написать код

4.Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица [aij] i, j = 1, ..., n, если aij=cos(t в квадрате +n);

5.Дано действительное число х. Вычислить с точностью 10 в-6 степени: сумма 1/x в квадрате+ к в кубе, где к от 1 до бесконечности

Заранее спасибо!!!!

гив ми код .