[Alegun]

Сообщение от shuppoo

...В каждом столбце матрицы должны быть либо две единицы со знаком+, т. е. 1 и 1, либо -1 и -1, либо -1 1, остальные нули...

Что-то типа этого:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, d, f, ColCnt, RowCnt: integer;
begin
 Randomize;
 ColCnt:= StrToInt(Edit1.Text);
 RowCnt:= StrToInt(Edit2.Text);
 StringGrid1.ColCount:= ColCnt;
 StringGrid1.RowCount:= RowCnt;
 for i := 0 to ColCnt-1 do
  begin
   f:= 0;
   for j:= 0 to RowCnt-1 do
    begin
     d:= Random(3)-1;
     if ((d = 1) or (d = -1)) and (f <= 2 ) then Inc(f);
     if f = 3 then d:= 0;
     StringGrid1.Cells[i, j]:=IntToStr(d);
    end;
  end;
end;