массивы 1 задач (дельфи 7)

[Last]

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

for i:=n downto 2 do
if a[i+1] mod 2=1 then
If a[i] mod 2=0 then 
a[i]:=a[i+1];
end;

[MyaSnIKs]

вторую прогу я своими силами доделал=)
но у меня с первой всё же не получается, чтобы
11234, заменялось на 22244

[Last]

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
n:=strtoint(edit1.text);
for i:=1 to n do
a[i]:=strtoint(stringgrid1.cells[i-1,0]);
for i:=n downto 2 do
if a[i+1] mod 2=1 then
If a[i] mod 2=0 then 
a[i+1]:=a[i];
end;
for i:=1 to n do
StringGrid1.Cells[i-1,0]:=Floattostr(a[i]);
end;
end.

вот так точно будет работать

[Last]

хотя вообще странное использование двумерного массива, не проще было array использовать?

[MyaSnIKs]

у меня итак array

[MyaSnIKs]

попробывал по твоему
теперь если 11234, он переделывает в 11224, а единицы вообще не трогает.

сегодня утром писал сообщение, а его нет уже

воообщем я сделал вот так

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
n:=strtoint(edit1.text);
for i:=1 to n do
a[i]:=strtoint(stringgrid1.cells[i-1,0]);
for i:=1 to n do
If a[i] mod 2=1 then
If a[i+1] mod 2=0 then begin
a[i]:=a[i+1];
if a[i-1] mod 2=1 then
If a[i+1] mod 2=0 then begin
a[i-1]:=a[i+1];
end;
end;
for i:=1 to n do
StringGrid1.Cells[i-1,0]:=Floattostr(a[i]);
end;
end.

вроде всё делает=)
Спасиб всем за помощь=)