составьте программу, выясняющую есть ли в двумерном массиве A(N,M) строки, сумма элементов которых - отрицательное число (Паскаль)

[sisaw]

составьте программу, выясняющую есть ли в двумерном массиве A(N,M) строки, сумма элементов которых есть отрицательное число (Надо что бы считал сумму строки и выводил эту строку в которой отрицательный элементы)

program mas;
var
a:array [1..100,1..100] of integer;
i,j,n,m,s:integer;
begin
writeln ('Введите размер масссива n,m:');
readln(n);
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
write ('a[',i,',',j,']=');
readln (a[i,j]);
end;
end;
for i:=1 to n do
   begin
      for j:=1 to m do
         begin
            write(a[i,j],'  ');
         end;
      writeln;
   end;
   s:=0;
 for i:=1 to n do
begin
for j:=1  to m do
begin
s:=s+a[i,j];
end;
writeln;
 end;
if s<0 then write(' Cумма элементов отрицательное число =',s)
else write('Нет таких элементов');
 writeln;
 readln;
 end.

[Vanta11a]

Ага. Вы считаете сумму всех строк, не сбрасывая её в 0 при выходе на новую строку.

   s:=0;

следует запихнуть после

 for i:=1 to n do
begin

Также следует перенести в цикл проверку на отрицательную сумму (сейчас она проходит после того, как проверена вся матрица).
Вот это

if s<0 then write(' Cумма элементов отрицательное число =',s)
else write('Нет таких элементов');

Перенести в конец

for j:=1  to m do
begin
s:=s+a[i,j];
end;

[GetMax]

Можно сделать так

for i := 1 to n do
Begin
  s := 0;
  for j := 1 to m do
  Begin
    s := s + a[i,j]
  End;
  if s < 0 then
  Begin
    writeln('Сумма = ', s, ' строка номер ', i)
  End;
End;

[Serge_Bliznykov]

позволю себе ответ (c) Vanta11a
проиллюстрировать кодом:

  WriteLn('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j], '  ');
    writeln;
  end;
  WriteLn;

  {поиск строк с отрицательной суммой элементов}
  for i := 1 to n do
  begin
    s := 0;
    for j := 1 to m do
      s := s + a[i, j];
    if s < 0 then writeln('в строке ',i,' Cумма элементов отрицательное число =', s)
  end;
  readln;

p.s. Если есть необходимость выдать в конце программы сообщение, что нужных строк нет, я бы рекомендовал добавить ещё одну переменную и использовать её как флаг (признак).


p.p.s. пока я возился, уже GetMax меня опередил!

[sisaw]

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

Можно сделать так

for i := 1 to n do
Begin
  s := 0;
  for j := 1 to m do
  Begin
    s := s + a[i,j]
  End;
  if s < 0 then
  Begin
    writeln('Сумма = ', s, ' строка номер ', i)
  End;
End;

огромное спасибо теперь все стало понятно

[sisaw]

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

позволю себе ответ (c) Vanta11a
проиллюстрировать кодом:

  WriteLn('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j], '  ');
    writeln;
  end;
  WriteLn;

  {поиск строк с отрицательной суммой элементов}
  for i := 1 to n do
  begin
    s := 0;
    for j := 1 to m do
      s := s + a[i, j];
    if s < 0 then writeln('в строке ',i,' Cумма элементов отрицательное число =', s)
  end;
  readln;

p.s. Если есть необходимость выдать в конце программы сообщение, что нужных строк нет, я бы рекомендовал добавить ещё одну переменную и использовать её как флаг (признак).


p.p.s. пока я возился, уже GetMax меня опередил!

вам тоже спасибо