Перевод из Pascal в Си

[leonid_spartak]

Доброго времени суток программисты, помогите пожалуйста перевести с Pascal на Си данный код.
Вот если что само задание: "В целочисленном векторе vector n найти второй по порядку отрицательный и предпоследний положительный элементы и поменять их местами. Предусмотреть случай, когда таких элементов в векторе нет." Заранее спасибо.

Код:

Var V:array[1..100] of integer;
    n,vmin,vmax,i,j,p,k,t,buf:integer;
Begin
    write('Введите n: ');readln(n);
    write('Введите vmin: ');readln(vmin);
    write('Введите vmax: ');readln(vmax);
    k:=0;t:=0;
    writeln('Исходный');
    For i:=1 to n do
    Begin
      V[i]:=random(31)-15;
      write(V[i]:4);
      if (V[i]<0)and(t=0)and(k=1) then t:=i;//второй отрицательный
      if (V[i]<0) then k:=1;
    End;
    j:=0;p:=0;
    For i:=n downto 1 do
    Begin
      if (V[i]>0)and(p=0)and(j=1) then p:=i;//предпоследний положительный
      if (V[i]>0) then j:=1;
    End;
    writeln;
    if (t>0)and(p>0) then
    Begin
      writeln('Второй отрицательный = ',V[t],' он находится V[',t,']');
      writeln('Предпоследний положительный = ',V[p],' он находится V[',p,']');
      buf:=V[t];
      V[t]:=V[p];
      V[p]:=buf;
      writeln('Преобразованный');
      For i:=1 to n do
       write(V[i]:4);
    End
    else writeln('Нету второго отрицательного или предпоследнего положительного');
    readln;
End.

[Alex11223]

Тут не бесплатное бюро переводов.

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.