Delphi массивы

[zzzarazzza]

Помогите написать программку...
1. Номер минимального элемента массива.
2.Сумму элементов массива, расположенных между первым и вторым отрица¬тельными элементами.
3.Преобразовать массив таким образом, чтобы сначала располагались все элементы, модуль которых не превышает единицу, а потом – все остальные.

var
  Form1: TForm1;

  i,j:integer;
  min :integer;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('Ведите кол-во строк и столбцов')else
begin
Randomize;
StringGrid1.ColCount:=strtoint(Edit2.Text);
StringGrid1.RowCount:=strtoint(Edit1.Text);
for i:=0 to StringGrid1.RowCount-1 do
for j:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[j,i]:=inttostr(random(15)-5);
BitBtn1.Enabled:=false;
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in ['0'..'9',' ']) then Key:= #8;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in ['0'..'9',' ']) then Key:= #8;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var min, m,n,y,x :integer;
begin
min:=0;
for m:=0 to StringGrid1.RowCount-1 do
for n:=0 to StringGrid1.ColCount-1 do
begin
if min>strtoint(StringGrid1.Cells[m,n])then
begin
min:=strtoint(StringGrid1.Cells[m,n]);
y:=m+1;
x:=n+1;
end;
end;
label4.Caption:=inttostr(min);
label10.Caption:=inttostr(x);
label11.Caption:=inttostr(y);
BitBtn2.Enabled:=false;
  end;


procedure TForm1.BitBtn4Click(Sender: TObject);
var i, j: Integer;
begin
Edit1.Text:='';
Edit2.Text:='';
Label4.Caption:='';
Label6.Caption:='';
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=true;
min:=0;
begin
  with StringGRid1 do
    for i:=0 to RowCount-1 do
    for j:=0 to ColCount-1 do
      Cells[j, i]:='';
end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var k,s:integer;
begin
k:=0;
s:=0;
for i:=0 to StringGrid1.RowCount-1 do
for j:=0 to StringGrid1.ColCount-1 do
begin
if StringGrid1.Cells[j,i]<inttostr(0) then
k:=k+1;
if k=2 then
s:=s+strtoint(StringGrid1.Cells[j,i]);
label6.Caption:=inttostr(s);
end;
end;
end.

[mss]

if StringGrid1.Cells[j,i]<inttostr(0) then

Здесь очевидная лажа.

[zzzarazzza]

почему?
мы же ищем отрицательный элемент..

[mss]

if StrToInt(StringGrid1.Cells[j,i]) < 0 then

if not (Key in ['0'..'9',' ']) then Key:= #8;

Здесь тоже лажа.

[zzzarazzza]

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

if StrToInt(StringGrid1.Cells[j,i]) < 0 then

поменяла.. всё равно не работает(

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

Здесь тоже лажа.

тут то что? просто стоит запрет на буквы...

[mss]

пробел тоже "буква")
и зачем вообще ты стираешь последний введенный юзером КОРРЕКТНЫЙ символ, если он только что ввел не цифровой символ ?

[zzzarazzza]

ну это не столь важно) щас уберу пробел..

а можно второй и третей задаче внимание уделить.. во второй сумма выводится но какая то неправильная)

[mss]

сумма выводится но какая то неправильная

Так ты же суммировать начинаешь только тогда когда однаружен 2-й отриц.элемент)
А до этого момента только считаешь их не суммируя..
И вообще - после обнаружентия 2-го отриц.эл-та нет никакого резона продолжать цикл, надо выходить из него.

щас уберу пробел

А почему ты запрещаешь юзеру жать бэкспейс чтобы стереть последний введенный им корректный символ ?
Ну ошибся юзер, промазал по клаве, хотел нажать "0", а нажал "1" .. Чем он так провинился что ты его сразу по рукам лупишь ?)

[zzzarazzza]

можешь написать как должно быть?