program zad;
uses crt;
var i,j,im,n:integer;
s,sum:longint;
a:array[1..20,1..20] of integer;
Begin
clrscr;
n:=5;
randomize;
   for i:=1 to n do begin
      for j:=1 to n do begin a[i,j]:=random(15)-3;
w   rite(a[i,j]:5); end; writeln; end;
sum:=0; im:=0;
write(' ');
   for i:=1 to n do begin
   j:=1; s:=0;
      while (j<=n) and odd(a[i,j]) do
   begin inc(s,abs(a[i,j])); inc(j);
   end;
if j>n then write(i,' строка') else
   while j<=n do begin inc(s,abs(a[i,j])); inc(j);
      end;
   if s>sum then begin
   im:=i; sum:=s;
   end;end;writeln;
writeln('max=',im);
readln;
End.