[Pascal] Определить число столбцов матрицы, сумма элементов которых положительна

[ilyha93]

Определить число положительных столбцов матрицы,сумма элементов которых положительна (Delphi) Можете проверить правильность написания кода и помочь исправить ошибки

var i,j,k:integer;
s:real;
A:array[1..7,1..7]of real;
begin
with stringgrid1 do
begin
for i:=1 to Rowcount do
for j:=1 to colcount do
A[i,j]:=Strtofloat(cells[j,i]);
i:=1;
j:=1;
k:=0;
end;
with stringgrid1 do
while j<=Rowcount do
s:=0;
while i<=Colcount do
begin
s:=A[i,j]+S;
j:=j+1;
end;
if s>0 then
k:=K+1;
end;
label1.caption='÷èñëî ñòðîê ñ ïîëîæèòåëüíîé ñóììîé  ðàâíî'+inttostr(k)
end.

[ACE Valery]

Ошибки какие выдает?

[Serge_Bliznykov]

ну, как минимум, неправильная адресация в StringGrid -
нумерация там от нуля,
т.е. надо так:

for i:=1 to Rowcount do
for j:=1 to colcount do
  A[i,j]:=Strtofloat(cells[ j-1, i-1]);

ну и дальше - имхо, Вы неверно вычисляете сумму элементов в столбцах.

я бы предложил такой вариант:

k:=0;
for j:=1 to stringgrid1.ColCount do begin
  s := 0;
  for i:=1 to stringgrid1.RowCount do
    s := s + A[i,j];
  if s>0 then
     k := k+1;
end;
...

[ilyha93]

спс за помощь помогли