pascal двумерный массивы

[Alex_FF]

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

1)матрицу взять квадратную а не прямоугольную размером T*T, T примим за число строк и столбцов естественно!

ничего не изменится, просто нужно вместо K и M везде написать T, объявить переменную T, и вводить T вместо K и M.

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

2)а дальше определить и вывести на экран сумму отриц.элементов не в каждой строке,а в каждом столбце??и потому уже определить СТОЛБЕЦ с макс. по модулю значением этой суммы??

нужно просто индексы у массива при обработке местами поменять. Будет вот так

это без модуля:

const
  Len = 100;

var
  a: Array[1..Len, 1..Len] of Integer;
  I, J, Max, Sum, T: Integer;

begin
  WriteLn('Введите T');
  ReadLn(T);
  for I := 1 to T do
    for J := 1 to T do
      Read(a[I, J]);
  WriteLn('Суммы:');
  Max := Low(Max);
  for I := 1 to T do
  begin
    Sum := 0;
    for J := 1 to T do
      if a[J, I] < 0 then Sum := Sum + a[J, I];
    WriteLn(I, ' -й столбец: ', Sum);
    if (Max < Sum) and (Sum <> 0) then Max := Sum;
  end;
  WriteLn('Макс. сумма:', Max);
  ReadLn; ReadLn;
end.

по модулю:

const
  Len = 100;

var
  a: Array[1..Len, 1..Len] of Integer;
  I, J, Max, Sum, T: Integer;

begin
  WriteLn('Введите T');
  ReadLn(T);
  for I := 1 to T do
    for J := 1 to T do
      Read(a[I, J]);
  WriteLn('Суммы:');
  Max := Low(Max);
  for I := 1 to T do
  begin
    Sum := 0;
    for J := 1 to T do
      if a[J, I] < 0 then Sum := Sum + a[J, I];
    WriteLn(I, ' -й столбец: ', Sum);
    if (Max < Abs(Sum)) and (Sum <> 0) then Max := Abs(Sum);
  end;
  WriteLn('Макс. сумма (по абсолютной величине):', Max);
  ReadLn; ReadLn;
end.

и еще, в первом коде (где матрица K на M) одна неточность может быть, если будет строка, в которой нет отрицательных элементов. программа в качестве max выведет 0. Я добавил туда проверку.

[array]

ооооооооо!все заработало!))
Alex_FF ,я у вас в долгу)))

спасибо огромное^____^