[Med]

Написав код программы 2-ой задачи, удивилсО, что это программа делает...

код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=StrToInt(Edit1.Text);
  StringGrid1.ColCount:=n;
  StringGrid1.RowCount:=n;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  mas:array[1..50,1..50]of Integer;
  i,j:Integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      mas[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
  for i:=1 to n do
    for j:=1 to n do
      if mas[i,j]=0 then
        begin
          mas[i,i]:=0;
          Break;
        end;
  for i:=1 to n do
    for j:=1 to n do
      if mas[j,i]=0 then
        begin
          mas[j,j]:=0;
          Break;
        end;
end;

end.

lmikle: Хде теги???