Eдалить строку матрицы, в которой находится первый нечетный отрицательный элемент

const 
  nmax=50;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,ix,jx,m,n:integer;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=-50+random(101);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  {poisk pervogo nechetnogo otr. el.}
  ix:=0;
  jx:=0;
  i:=1;
  while (i<=n) and (ix=0) do
    begin
      j:=1;
      while (j<=m) and (a[i,j] mod 2=0) or (a[i,j]>=0) do
        inc(j);
      if j<=m then
        begin
          ix:=i;
          jx:=j;
        end
      else
        inc(i);
    end;
  if ix<>0 then
    begin
      writeln('Indeksy pervogo nechetnogo otr. el [',ix,',',jx,']');
      {Udalenie stroki s naidennym elementom}
      if ix=n then
        dec(n)
      else
        begin
          for i:=ix to n-1 do
            for j:=1 to m do
              a[i,j]:=a[i+1,j];
          dec(n);
        end;
      writeln('Poluchennya matritsa:');
      for i:=1 to n do
        begin
          for j:=1 to m do
            write(a[i,j]:4);
          writeln;
        end;
    end
  else
    writeln('V matritse net nechetnyh otr. elementov');
end.

writeln('Indeksy pervogo nechetnogo otr. el [',ix,',',jx,']');

var
  a:array[1..20,1..20] of integer;
  i,j,ix,jx,m,n:integer;
begin
  write('Kol-vo strok:');
  readln(n);
  write('Kolichestvo stolbtsov:');
  readln(m);
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=-50+random(101);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  ix:=0;
  jx:=0;
  i:=1;
  while (i<=n) and (ix=0) do
    begin
      j:=1;
      while (j<=m) and (a[i,j] mod 2=0) or (a[i,j]>=0) do
        j:=j+1;
      if j<=m then
        begin
          ix:=i;
          jx:=j;
        end
      else
        i:=i+1;
    end;
  if ix<>0 then
    begin
      if ix=n then
        n:=n-1
      else
        begin
          for i:=ix to n-1 do
            for j:=1 to m do
              a[i,j]:=a[i+1,j];
          n:=n-1;
        end;
      writeln('Massiv posle udaleniya:');
      for i:=1 to n do
        begin
          for j:=1 to m do
            write(a[i,j]:4);
          writeln;
        end;
    end
  else
    writeln('V matritse net nechetnyh otr. elementov');
  readln;
end.

var
  a:array[1..20,1..20] of integer;
  i,j,ix,m,n:integer;
begin
  readln(n,m);
  randomize;
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=-50+random(101);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  ix:=0;
  for i:=1 to n do
    begin
      for j:=1 to m do
        if (a[i,j]<0) and (a[i,j] mod 2<>0) then
          begin
            ix:=i;
            break;
          end;
      if ix<>0 then
        break;
    end;
  if ix<>0 then
    begin
      for i:=ix to n-1 do
        for j:=1 to m do
          a[i,j]:=a[i+1,j];
      n:=n-1;
    end;
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
end.

var
  a:array[1..20,1..20] of integer;
  i,j,n,m,k:integer;
  sr:real;
begin
  readln(n,m);
  randomize;
  k:=0;
  for i:=1 to n do
    begin
      sr:=0;
      for j:=1 to m do
        begin
          a[i,j]:=random(10);
          write(a[i,j]:5);
          sr:=sr+a[i,j];
        end;
      for j:=1 to m do
        if a[i,j]>sr/m then
          inc(k);
      writeln;
    end;
  writeln(k);
end.