[kobezzza]

Ребят, как сделать, чтобы элементы массива С и T, которые оказались больше некоторого числа (забивается в поле ввода пользователем) выводились в StringGrid? Заранее благодарен

[s0Creator]

так какова массива С или T?

[kobezzza]

Ну как бы эти 2 массива образуют третий, в котором содержатся элементы из этих двух массивов меньше определённого числа

[MegaPiha]

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

Ребят, как сделать, чтобы элементы массива С и T, которые оказались больше некоторого числа (забивается в поле ввода пользователем) выводились в StringGrid? Заранее благодарен

Можно так. Только если че нитак извини, быстро набросал.

Код:

 var
  Form1: TForm1;
  C: array [1..10] of integer;
  T: array [1..10] of integer;


implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var j,i:integer;
    chislo:integer;

begin
   chislo:=StrToInt(Edit1.text);
   with StringGrid1 do
   begin
      ColCount:=3;
      RowCount:=11;
      for J:= 1 to 10 do
      begin
          Cells[1,j] := ' ';
          Cells[2,j] := ' ';
      end;
      i:=0;
      for J:= 1 to 10 do
      begin
          if c[j]>chislo then
          begin
             i:=i+1;
             Cells[1,i] := IntToStr(c[j]);
          end;
      end;
      i:=0;
      for J:= 1 to 10 do
      begin
          if T[j]>chislo then
          begin
             i:=i+1;
             Cells[2,i] := IntToStr(T[j]);
          end;
      end;
   end;
end;


procedure TForm1.FormCreate(Sender: TObject);
Var i,j:integer;
begin
   Randomize;
   for i := 1 to 10 do
   begin
      C[i]:=Random(50);
      T[i]:=Random(50);
   end;
   with StringGrid1 do
   begin
      ColCount:=3;
      RowCount:=11;
      i:=1;
      for J:= 1 to 10 do
      begin
         Cells[1,j] := IntToStr(c[j]);
         Cells[2,j] := IntToStr(T[j]);
      end;
   end;
end;

end.

Только не сделал, чтобы образовывался третий массив. Ну это просто, сделай сам.

[kobezzza]

Пасиба))