Цитата:
|
Сообщение от Dym_aka_Han
здесь работа только отрицательных чисел и то не работает  |
так как массив у тебя наичнается с нуля [
0..4]
то цикл начинай тожк с нуля
for i:=
0 to
4 do
Код:
For i:=0 to 4 do
if m[i]<0
then memo1.lines.add(inttostr(m[i]) //если число отрицательное то в кинем его в мемо
else StringGrid1.Cells[i,0]:=m[i] //если число положительное (или равно нулю) то кинем его на стрнгрид
а переменную
k тут использовать не обязательно.
и еще,зачем вот эта строка у тебя?
Код:
m[i] := StrToInt(StringGrid1.Cells[i,0]);
т.е. в начале ты считываешь числа из стринггрида в массив? постановку задачи плохо написл..