[Grynyuk]

Код:

function summ(k:integer;st:TStringgrid):real;
var i,j:integer;
    sum:real;
begin
sum:=0;
  for i:=1 to k do  begin
    for j:=1 to k do     begin
      if (i mod 2=0) then

    sum:= sum + strtofloat(st.Cells[i,j]);

  result:=sum;
  end;
end;
  end;

Помогите найти ошибку

[Snake22]

скорее всего надо писать

Код:

...to k-1 do begin...// ( в обоих строчках)

а так, покажи хотя бы какие данные подаются в функцию?
во вторых, покажи код ошибки?

[Alegun]

Возможно надо так (подсчёт идет не по горизонтали, а по вертикали)

Код:

...
sum:= sum + strtofloat(st.Cells[j, i]);
...