Задание было дано именно так, а полная программа от приведенного кода отличается только наличием вывода матрицы, и еще заполнения массива случайным образом.
Проблема решена, спасибо всем, кто пытался помочь.
Собственно 2 ошибки:
1) Используя код volvo877, обнаружил ошибку
| Код |
for i:= 0 to n-1 do
for j := n-1 downto i + 1 do // имхо нужно писать i, а не (i+1), иначе индекс j+1 при макс i вылезет за границы массива
if GetDescription(j) > GetDescription(j+1) then
for k:= 0 to m do
begin
temp:= matrix[j+1, k];
matrix[j+1, k]:= matrix[j, k];
matrix[j, k]:= temp;
end;
|
2) А самая главная ошибка в функции GetDescription(), в задании ф-ция ищет сумму четных положительных элементов, а на практике получается нечетных, все из-за того, что индекс массива у меня начинается с нуля, следовательно, надо в ф-ции считать сумму нечетных элементов, т.е.
| Код |
function GetDescription (index: integer): integer;
var
a: integer;
Result: integer;
begin
a:= 0;
Result:= 0;
for a := 0 to m do
if a mod 2 <> 0 then // вместо a mod 2 = 0
if matrix[index, a] > 0 then
Result:= Result + matrix[index, a];
GetDescription:= Result;
end;
|
|
