В матрице С(8,11) найти

[angelina13777]

В матрице С(8,11) найти отрицательные элементы в каждой строке. Матрицу и найденные элементы распечатать.
ПОМОГИТЕ,ПООЖАЛУЙСТА

[MihalNik]

А С(8,11) - вариант задания? Где код хотя бы с вводом/выводом матрицы?

[BETEP32]

PHP код:

 const
  N = 8;
  n1=11;
var
  Arr : array[1..N1, 1..N] of Integer;
  i, j, i1, j1  : Integer;
  NumTmp        : Integer;
  StrTmp        : String;
begin
  NumTmp := -(N1 * N) div 2;
  for i := 1 to N do begin
    for j := 1 to N1 do begin
      Inc(NumTmp);
      Arr[i, j] := NumTmp;
    end;
  end ;

//  вывод матрицы 
  for i := 1 to N1 do begin
    StrTmp := '';
    for j := 1 to N do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + Char(9);
      end;
      StrTmp := StrTmp + IntToStr( Arr[i, j] );
    end;
    writeln(StrTmp);
  end;
 writeln( '    ');
  StrTmp:='';
//  вывод отрицательных чисел 
for i := 1 to N do begin
   for j := 1 to N1 do begin
   if Arr[i, j]<0 then StrTmp:=StrTmp+' '+inttostr(Arr[i, j])+' ';
    end;
  end;
  writeln(StrTmp);
 readln;
end. 


ну или совсем просто как mad cat

for i := 1 to N do begin
** for j := 1 to N1 do begin
** if Arr[i, j]<0 then write(Arr[i,j]:6:3);
*** end;
* end;

[angelina13777]

Program2.pas(14) : Ошибка времени выполнения: Индекс находился вне границ массива.

[BETEP32]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
 const
  N = 8;
  n1=11;
var
  Arr : array[1..N1, 1..N] of Integer;
  i, j, i1, j1  : Integer;
  NumTmp        : Integer;
  StrTmp        : String;
begin
  NumTmp := -(N1 * N) div 2;
  for i := 1 to N do begin
    for j := 1 to N1 do begin
      Inc(NumTmp);
      Arr[i, j] := NumTmp;
    end;
  end ;

//  вывод матрицы 
  for i := 1 to N1 do begin
    StrTmp := '';
    for j := 1 to N do begin
      if StrTmp <> '' then begin
        StrTmp := StrTmp + Char(9);
      end;
      StrTmp := StrTmp + IntToStr( Arr[i, j] );
    end;
    writeln(StrTmp);
  end;
 writeln( '    ');
  StrTmp:='';
//  вывод отрицательных чисел 
for i := 1 to N do begin
   for j := 1 to N1 do begin
   if Arr[i, j]<0 then StrTmp:=StrTmp+' '+inttostr(Arr[i, j])+' ';
    end;
  end;
  writeln(StrTmp);
 readln;
end.

[Mad_Cat]

ну во первых
если

N = 8;
  n1=11;

то и

Arr : array[1..N, 1..N1] of Integer;

и все циклы

for i := 1 to N do begin
    for j := 1 to N1 do

for i := 1 to N do begin
    StrTmp := '';
    for j := 1 to N1 do begin

в работу не вникал