Дэлфи массивы

[Sonny01]

уважаемые, будьте добры помочь, пожалуйста. необходимо решить задачу: алгоритм переписывающий в таблицу А - отрицательные, а в таблицу В - положительные элементы таблицы Д.

[RUSt88]

пиши на мыло договоримся

[Егор527]

Как тебе делать?массивы динамические и ввод только их размерности и рандомное заполнение(или ручное).Или могу со Strngrid сделать...вообще задача очень легкая.

[Sonny01]

стринг грид массив лучше не динамический, небольшой, заполнение рэндом. заранее спасибо

[Chudo4258]

Код: Новая папка.rar

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Button2: TButton;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var d,i:integer;
begin
d:=StrToInt(InputBox('Заполнение массива','Количество элементов в массиве',''));
stringgrid1.ColCount:=d+1;
for i:=1 to stringgrid1.ColCount do
begin
 stringgrid1.Cells[i,0]:='A['+IntToStr(i)+']';
 stringgrid1.Cells[i,1]:=IntToStr(-20+random(41));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
stringgrid2.ColCount:=1;
stringgrid3.ColCount:=1;
for i:=1 to stringgrid1.ColCount-1 do
 if StrToInt(stringgrid1.Cells[i,1])>0 then
                                 begin
                                    stringgrid2.Cells[stringgrid2.ColCount,0]:=stringgrid1.Cells[i,0];
                                    stringgrid2.Cells[stringgrid2.ColCount,1]:=stringgrid1.Cells[i,1];
                                    stringgrid2.ColCount:=stringgrid2.ColCount+1;
                                  end
                                       else
                                 begin
                                    stringgrid3.Cells[stringgrid3.ColCount,0]:=stringgrid1.Cells[i,0];
                                    stringgrid3.Cells[stringgrid3.ColCount,1]:=stringgrid1.Cells[i,1];
                                    stringgrid3.ColCount:=stringgrid3.ColCount+1;
                                  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
end.