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

[array]

в прямоугольной матрице m*k ,имеющей имя MAT содержаться целые числа.m-число строк,K-число столбцов.Ввести элементы матрицы с клавиатуры .Определить и вывести на экран сумму отрицательных элементов в каждой строке. Определить стороку с максимальным значением этой суммы и вывести ее номер на экран.

[ОДИНОЧЕСТВО В СЕТИ]

обращайся!помогу за оч. скромное вознаграждение! аська в профиле и на аватарке

[Stilet]

Значит покажу часть решения:

  const m=5;k=6;
  var a:array[1..m,1..k] of integer;b:array[1..m] of integer;
   q,w:integer;
begin
 for q:=1 to length(a) do begin
  for w:=1 to length(a[q]) do begin
   a[q,w]:=50-random(100);
   if a[q,w]<0 then b[q]:=b[q]+a[q,w];
   write(a[q,w]:5);
  end;             writeln;
 end;
 writeln;
 for q:=1 to length(a) do begin
  write(b[q]:5);
 end;

  readln;

end.

Остается впендюрить сюда нахождение максимального элемента.

[array]

отлично!
насчет вознаграждения можно поподробнее?))

[array]

Stilet,спасибо за помощь))
а вот куда именно их впендюрть-то?)

[Alex_FF]

Вот решение:

без модуля:

const
  Len = 100;

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

begin
  WriteLn('Введите M, K');
  ReadLn(M, K);
  for I := 1 to M do
    for J := 1 to K do
      Read(a[I, J]);
  WriteLn('Суммы:');
  Max := Low(Max);
  for I := 1 to M do
  begin
    Sum := 0;
    for J := 1 to K do
      if a[I, J] < 0 then Sum := Sum + a[I, J];
    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, M, K: Integer;

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

[Alex_FF]

только, что считать макс. суммой? например из двух сумм -32 и -64 максимальной будет -32...

[array]

благодарю!)
я тоже не поняла,тоже решила что надо по модулю брать!

[Alex_FF]

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

благодарю!)
я тоже не поняла,тоже решила что надо по модулю брать!

я исправил код. по формулировке задачи вроде правильно теперь...

[array]

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

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