Подпрограммы Опции

[Камтугеза]

Даны массивы А (30; 20) и В (40;50) из вещ чисел. Найти номер строки с максимальной суммой элементов. В том массиве, где этот номер число нечетное, обнулить элементы данной строки. Если номер окажется нечетным, то выдать соответ сообщение.

помогите, пожалуйста...=)
буду рада идеям, потому что не могу понять сам алгоритм.

[klem4]

Вот мой вариант, менее гибкий, более громоздкий, но более понятный

uses crt;
const
   Nmax = 5;
   Mmax = 6;
type
   TMx = array[1..Nmax,1..Mmax] of single;

procedure print_mx(mx : TMx; n,m : byte);
var
   i,j : byte;
begin
   for i := 1 to n do begin
      writeln;
      for j := 1 to m do write(mx[i,j]:5:2,' ');
   end;
end;
procedure row_zero(var mx : TMx; n,m,row : byte);
var
   j : byte;
begin
   for j := 1 to m do mx[row,j] := 0;
end;

function row_sum(mx : TMx; n,m,row : byte) : extended;
var
   j : byte;
   s : extended;
begin
   s := 0.0;
   for j := 1 to m do
    s := s + mx[row,j];
   row_sum := s;
end;

procedure max_row(var mx : Tmx; n,m : byte);
var
   i,nMax : byte;
begin
   for i := 1 to n do
    if (nMax = 0) or (row_sum(mx, n, m, i) > row_sum(mx, n ,m, nMax)) then
     nMax := i;
   if odd(nMax) then begin
      readln;
      writeln('Yes ', nmax);
      row_zero(mx, n, m, nMax);
   end;
end;

var
  test: TMx =
  (
    (1, 2, 3, 4, 5, 6),  { 21 }
    (6, 9, 0, 1, 2, 10), { 28 }
    (6, 3, 9, 9, 6, 0),  { 33 }
    (4, 7, 3, 9, 8, 8),  { 39 }
    (5, 4, 2, 8, 1, 30)  { 50 }
  );

begin
   clrscr;
   max_row(test, 5, 6);
   print_mx(test, 5, 6);
   readln;
end.