Преобразовать последовательность

[Алехий]

Даны целые числа a1...a25, b1...b25. Преобразовать последовательность b1...b25 по правилу: если ai<=0, то bi умножить на min(a1...a25), иначе bi заменить нулем(i=1...25).
Используя StringGrid
Помогите плез

[Аватар]

Вы не перепутали "помогите" и "сделайте за меня"?

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

procedure TForm1.FormCreate(Sender: TObject);
var i,min:integer;
    a,b:array[1..25] of integer;
begin
   Randomize;
   For i:=1 to 25 do
   begin
      StringGrid1.Cells[i,0]:=IntToStr(-50+Random(100));
      StringGrid1.Cells[i,1]:=IntToStr(-50+Random(100));
      a[i]:=StrToInt(StringGrid1.Cells[i,0]);
      b[i]:=StrToInt(StringGrid1.Cells[i,1]);
      If i=1 then
         min:=a[i] else
         If min>a[i] then
            min:=a[i];
   end;
   For i:=1 to 25 do
      If a[i]<0 then
         b[i]:=min else
         b[i]:=0;
   For i:=1 to 25 do
      StringGrid1.Cells[i,2]:=IntToStr(b[i]);
end;