[Gsk]

Здравствуйте!
Мне нужно составить функцию, которая будет находить строку с наименьшей суммой.
Динамический массив Mas(N,S) N, S задаются вручную, элементы массива тоже.

Попробовал написать функцию сам:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

function MinSum(Mas:T2Ar_Real): Real; var i,j : integer;  Massiv: T_Mxy ; Summa, Min: Real; begin summa:=0; for i:=0 to S-1 do begin for j:=0 to N-1 do Summa:=Summa+Mas[i,j]; Massiv[i]:=Summa; // Ошибка тут почему то!!!! =(( Он выделяет это поле синим и все останавливается end; Min:=Massiv[0]; for i:=0 to S-1 do if Min < Massiv[i] then Min:=Massiv[i]; MinSum:=Min; end;

Помогите пожалуйста! Исправьте или предложите свой вариант, если не трудно! Заранее спасибо!

[MegaPiha]

Если массив динамический то надо предварительно определить его размер, функцией Setlength.

[Burka]

>Он выделяет это поле синим и все останавливается
Описание ошибки истинного программиста

Если массив двухмерный то нужно после ввода N, S "установить длинну массива"

Код:

1	SetLength(Mas,N,S)