Одномерный массив

[Nataly1992]

Здравствуйте! Опять обращаюсь к вам))
Вот такая вот задачка.
Дан одномерный массив А(n), который состоит не менее, чем из 10 элеметов(больших за ноль, меньших за ноль, нулевых). Выходной массив получить, поменяв второй елемент, меньший за ноль, минимальным. Вывести оба массива - входной и выходной в Excel.

[Seil_29]

program helloworld;
var a:array[1..100] of integer;
n,i,imin,k,c,iotr:integer;
begin
read(n); {кол-во эл-ов массива}
for i:=1 to n do
read(a[i]);
k:=0;
imin:=1;
for i:=1 to n do
if a[i]<0 and k<=1 then {Если элемент отр. и его номер 1 или 2}
begin
iotr:=i;
k:=k+1;
end else if a[i] < a[imin] then
imin:=i;
c:=a[iotr]; {Или заменить без использование третьей}
a[iotr]:=a[imin];
a[imin]:=c;
for i:=1 to n do
write(a[i]);
end.

[Nataly1992]

Нам на паре дали вот такую задачу:
Дан одномерный массив А(n). Выходной массив получить, поменяв местами первый и последние элементы.
вот так вот програмировали:
Private Sub CommandButton1_Click()
n=InputBox ("Vvedite kolichestvo n")
ReDim A(n)
For i=1 To n
A(i)=InputBox(Vvedite A("& и &"))
Next i
For i=1 To n
Cells (2,i).Value=A(i)
Next i
Cells(1,1)="Vhodnoj"
Cells(1,2)="Massiv"
Cells(3,1)="Vuhodnoj"
Cells (3,2)="Massiv"
Amax=A(1):Amin=A(1)
Nmax=1:Nmin=1
For i=2 To n
If Amax<A(i) Then Amax=A(i):Nmax=i
If Amin>A(i) Then Amin=A(i):Nmin=i
Next i
A(Nmax)=Amin
A(Nmin)=Amax
For i=1 To n
Cells(4,i).Value=A(i)
Next i
End Sub


Преподаватель сказала, что здесь чтото нужно заменить, чтобы сделать то условие, которое у меня в первом сообщении.
Помогите пожалуйста

[Nataly1992]

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

program helloworld;
var a:array[1..100] of integer;
n,i,imin,k,c,iotr:integer;
begin
read(n); {кол-во эл-ов массива}
for i:=1 to n do
read(a[i]);
k:=0;
imin:=1;
for i:=1 to n do
if a[i]<0 and k<=1 then {Если элемент отр. и его номер 1 или 2}
begin
iotr:=i;
k:=k+1;
end else if a[i] < a[imin] then
imin:=i;
c:=a[iotr]; {Или заменить без использование третьей}
a[iotr]:=a[imin];
a[imin]:=c;
for i:=1 to n do
write(a[i]);
end.

Мне нужно в vba

[Seil_29]

Простите, Бэйсика не знаю =(
Просто Вы не указали,на каком языке, подумал, мб паскаль

[Nataly1992]

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

Простите, Бэйсика не знаю =(
Просто Вы не указали,на каком языке, подумал, мб паскаль

Всеравно спасибо..)))

[Nataly1992]

помогите, умаляю......................

[Nataly1992]

На Вас последняя надежда...