Матрица

[Carter]

Найти строку с максимальной суммой модулей элементов заданной целочисленной матрицы, который содержит только нечетные элементы.

[Mad_Cat]

который содержит только нечетные элементы

это кто?
Матрица? строка? они вроде "которая"

[TinMan]

н-да.. шедевр..
"летели полторы крокодилы.." (С)
Русский язык имеет неплохую помехоустойчивость, но и в нем можно смысл зарубить напрочь )). Впрочем - что взять с американского президента?.. )))

[Carter]

сорри)) затупил) строка, которая имеет нечетные элементы)

[Stilet]

Carter

Показывай как вводишь матрицу.

[Carter]

const n=5; m=5;
type myarray=array [1..n, 1..m] of integer;
var mas : myarray;
    i, j : integer;

procedure vvod (var mas : myarray);
begin
 for i:=1 to n do
  for j:=1 to m do
   mas[i,j]:=random(10)-5;
end;

procedure vivod (mas : myarray);
begin
 writeln('Массив: ');
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(mas[i,j]:4);
   writeln;
  end;
end;

begin
vvod(mas);
vivod(mas);
readln;
end.

[Stilet]

var s,max,k:integer;
...
procedure vvod (var mas : myarray);
var b:boolean;
begin b:=true;
 for i:=1 to n do begin
  for j:=1 to m do begin
   mas[i,j]:=random(10)-5;
   s:=s+abs(mas[i,j]);
   if b and ((mas[i,j] mod 2)<>0) then b:=false;
  end;
 if b and (s>max) then begin max:=s;k:=i;end;
end;
end;

max - будет максимум, а к - номер строки.