Написать программу на Delphi по задаче...

[Johny58]

Тупанул. Начинал селсу с 0, а она с 1 начинается..

procedure TForm1.Button1Click(Sender: TObject);
const
 N=3;
var
 Mass: array[0..n,0..n] of integer;
 min, row: integer;
 x, y, result: integer;
begin

for y:=0 to N do
  for x:=0 to N do
    Mass[x, y]:=strtoint(StringGrid1.Cells[x+1,y+1]);


Result:=0;
min:=Mass[0, 0];
for y:=0 to N do
  for x:=0 to N do
    if mass[x,y]<min then
      begin
        min:=mass[x,y];
        row:=x;
      end;

for y:=0 to N do
  for x:=0 to N do
    if y=row then
      begin
        result:=Result + mass[x,y];
      end;

Edit1.Text:=inttostr(Result);
end;
end.