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

[MyaSnIKs]

1. Заменить в одномерном числовом массиве нечетные элементы на соседние четные числа.

2. В одномерном массиве, состоящем из n вещественных элементов, вычислить:
а. номер минимального элемента массива;
б. сумму элементов массива, расположенных между первым и
вторым отрицательными элементами.

С первой вообще не лады, прошу очень помочь.
___________________________________ _________
А вторую первую часть я сделал, а вот с "б" не мог ли кто-нибудь помочь, у меня вроде получилось написать, но мне что-то косячным кажется.

У меня вот так, подправьте где нужно, или где лишнее(задание 2б):

procedure TForm1.Button3Click(Sender: TObject);
var
i,b,j,p:integer;
c:byte;
begin
c:=1;
b:=0;
for i:=1 to n do
a[i]:=strtoint(stringgrid1.cells[i-1,0]);
for i:=1 to n do
if (a[i]<0) and (c=1) and (i<n) then
begin
for j:=i+1 to n do
If a[j]>0 then begin
b:=b+a[j];
c:=0;
end else
If a[j]<0 then begin
a[j]:=0;
a[j+1]:=0;
label3.Caption:=inttostr(b);

[Stilet]

Ну если уж править то примерно так. Код не проверял

procedure TForm1.Button3Click(Sender: TObject);
var s:inteher; b:false;
begin
s:=0;
for i:=1 to StringGrid1.RowCount-1 do begin
 if (a[i]<0) then b:=not b;
 if b then s:=s+s[i] else
  if s<>0 then break
end;
label3.Caption:=inttostr(s);

[MyaSnIKs]

а что с первой делать?=(
для второй задачи, как бы мой код тоже работает нормально,просто я сращивал пару своих задач и мне показалось, что немного лишнего вышло.
а "b:false;" он спрашивает expression expected , что делать?я эту команду вообще первый раз вижу=)

[Stilet]

Ну перепутал малость. b - логическая переменная.

а что с первой делать?=(

Код в студию - поправим.

[MyaSnIKs]

n:=strtoint(edit1.text);
for i:=1 to n do
a[i]:=strtofloat(stringgrid1.cells[i-1,0]);
for i:=1 to n do
if a[i]-"нечётное" then begin
"заменить на ближайшее следующее чётное"
end;
for i:=1 to n do
StringGrid1.Cells[i-1,0]:=Floattostr(a[i]);
end;

и я не знаю как создать это условие(это для первой)
___________________________________-

procedure TForm1.Button3Click(Sender: TObject);
var s:inteher; b:false;
begin
s:=0;
for i:=1 to StringGrid1.RowCount-1 do begin
 if (a[i]<0) then b:=not b;
 if b then s:=s+s[i] else
  if s<>0 then break
end;
label3.Caption:=inttostr(s);

код как бы работает но не останавливается когда встречает второе отрицательное значение, складывает от первого до последнего

___________________________________ __

procedure TForm1.Button3Click(Sender: TObject);
var
i,b,j:integer;
begin
b:=0;
for i:=1 to n do
a[i]:=strtoint(stringgrid1.cells[i-1,0]);
for i:=1 to n do
if (a[i]<0)and (i<n) then
begin
for j:=i+1 to n do
If a[j]>0 then begin
b:=b+a[j];
end else
If a[j]<0 then begin
a[j]:=0;
a[j+1]:=0;
label3.Caption:=inttostr(b);
end;
end;
end;
end.

а в моём всё работает только не знаю как сделать, чтобы если, например, числа идут -1 -2 2 2 2 -4 -5, чтобы он сумировал -2 до -5.

[Stilet]

if a[i] mod 2=0 then четное

но не останавливается

Например так
if (a[i]<0) then begin
b:=not b;
if s<>0 then break
end;

[MyaSnIKs]

Например так
if (a[i]<0) then begin
b:=not b;
if s<>0 then break
end;

у тебя так и написано=)
Он не останавливается=)

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];
end;
for i:=1 to n do
StringGrid1.Cells[i-1,0]:=Floattostr(a[i]);
end;
end.

я написал, он у меня заменяет, но, если такая картина, как : 11234, то заменяет на 12244, а первую единицу не меняет, как сделать, чтобы он через одну поменял?

[Last]

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

1. Заменить в одномерном числовом массиве нечетные элементы на соседние четные числа.

т.е. в массиве 123 что надо сделать? заменить 1 и 3 на 2?

по-моему ваша логика не совсем состоятельна, если a[n]=3 на что оно заменится?

[MyaSnIKs]

заменить 1 на 2 а 3 не трогать(у меня делает)
а если бы было 1234, то заменить 1 на 2, а 3 на 4(у меня делает)
а если 11234, то первые две единицы на 2, а 3 на 4(у меня не делает=))
вот с полследним если можешь, помоги плиз, или напиши свой вариант проги

у меня точно такой же код как у тебя=)
там выше написано,с таким кодом, не получается
"а если 11234, то первые две единицы на 2, а 3 на 4(у меня не делает=))"

[Stilet]

у тебя так и написано=)

Ошибаешся, внимательно смотри. Впрочем если такой вариант не устраивает вот другой.

const a:array[1..5] of integer=(-1,2,3,-4,5);
 var i,s:integer;b:boolean;
begin
s:=0;
i:=0; while i<5 do begin
inc(i);
 while a[i]>0 do  inc(i);    inc(i);
 while a[i]>0 do begin  s:=s+a[i];  inc(i);  end;
 break;
end;
Caption:=inttostr(s);
end;