Откоректируйте задание на двумерный массив

[Toxass]

Переставить столбцы матрицы соответственно к уменьшению сум отрицательных чисел в столбиках.

begin
randomize;
for I:=1 to 10 do
a[i]:=random(100);
s:=0;
for i:=1 to 10 do
s:=s+a[i];
sr:=s/10;

for i:=1 to 10 do
  for j:=1 to 10 do
  if a[i]>sr then b[j]:=a[i];
for J:=1 to 10 do
writeln('j[i]=',j);
    end;
    readln;
end.

[alex_fcsm]

А где матрица???

[Toxass]

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

А где матрица???

ну вот вышенаписанное это программа, только она почемуто не работает!! Вот я и прошу помочь откорректировать)

[Toxass]

Вот весь код

Var  a:array [1..10] of integer;
b:array [1..10] of integer;
  i,j:integer;
   s,sr:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }

begin
randomize;
for I:=1 to 10 do
a[i]:=random(100);
s:=0;
for i:=1 to 10 do
s:=s+a[i];
sr:=s/10;

for i:=1 to 10 do
  for j:=1 to 10 do
  if a[i]>sr then b[j]:=a[i];
for J:=1 to 10 do
writeln('j[i]=',j);
    end;
    readln;
end.

[slips]

в упор не наблюдаю двумерного массива

[alex_fcsm]

Инициализация матрицы a:array[1..10,1..10] of integer;

for i:=1 to 10 do
 for j:=1 to 10 do
   a[i,j]:=random(10);

Предположим что в массиве b:array[1..10] of integer - отрицательные суммы

for i:=1 to 10 do
 begin
  b[i]:=0;
   for j:=1 to  10 do
     if a[i,j]<0 then b[i]:=b[i]+a[i,j];
 end;

[Toxass]

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

[Toxass]

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

Инициализация матрицы a:array[1..10,1..10] of integer;

for i:=1 to 10 do
 for j:=1 to 10 do
   a[i,j]:=random(10);

Предположим что в массиве b:array[1..10] of integer - отрицательные суммы

for i:=1 to 10 do
 begin
  b[i]:=0;
   for j:=1 to  10 do
     if a[i,j]<0 then b[i]:=b[i]+a[i,j];
 end;

Эт куда писать и что вообще с ним делать??

[alex_fcsm]

Это первые действия в программе

[alex_fcsm]

uses crt;
var i,j,temp,k:integer;
    a:array[1..10,1..10] of integer;
    b,t:array[1..10] of integer;
begin
randomize;
clrscr;
for i:=1 to 10 do
 begin
 for j:=1 to 10 do
  begin
   a[i,j]:=random(100)-random(100);
   write(a[i,j]:5);
  end;
 writeln;
 end;
for j:=1 to 10 do
 begin
  b[j]:=0;
   for i:=1 to  10 do
     if a[i,j]<0 then b[j]:=b[j]+a[i,j];
 end;

for i:=2 to 10 do
    for j:=10 downto i do
      if b[j-1]<b[j] then
        begin
          Temp:=b[j-1];
          b[j-1]:=b[j];
          b[j]:=temp;
          temp:=j;
          for k:=1 to 10 do
           t[k]:=a[k,temp];
          for k:=1 to 10 do
           a[k,temp]:=a[k,temp-1];
          for k:=1 to 10 do
           a[k,temp-1]:=t[k];
        end;
writeln('=================================================');
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   write(a[i,j]:5);
 writeln;
 end;
writeln('--------------------------------------------------');
writeln;
for i:=1 to 10 do
 write(b[i]:5);
end.