Программа, использующая подпрограмму-функцию.

[OnEDooM]

Помогите Создать программу, использующую подпрограмму-функцию. Функция должна возвращать сумму элементов каждого столбца матрицы X(m,n), имеющих значения в интервале Min…Max

У меня есть решение, но ответ он выводит один и тот же . В чем проблема, помогите

[p51x]

Проблема в том, что функция считает сумму по все матрице. Нет никаких "каждого столбца". Вы сами не видите два цикла в функции?

[digitalis]

А ежели так:

Function sumcol(nstr,ncol: integer ; VMin,Vmax: Extended; var Sum: Extended) : Boolean ;
var i: integer ; tmp: Extended ;
Begin
  Sum :=0 ; Result := True ;
  for i := 1 to nstr do
     begin
        tmp := My_array[i,ncol] ;
        if (tmp < Mmin) or (tmp > Vmax) then
          begin Result := False ; Break end
          else Sum := Sum + tmp
     end ;
end ;