Напишите программу, пожалуйста

[masha_tazina]

Напишите программу, пожалуйста

Задан вектор из N элементов. Поменять первый элемент, имеющий отриц. значение с первым нулевым элементом местами.
Напишите программу плиз!!!:lamo:

 

[Евгений]

uses Crt;
var  a:array of integer;
     n,t,k,i:integer;
begin
     ClrScr;
      Write('N = '); Readln(n);
       Writeln;
        SetLength(a,n);
         Randomize;
          for i:=0 to n-1 do
           begin
             a[i]:=Random(20)-10;
             Write(a[i]:4);
           end;
            Writeln;
      t:=-1;
       for i:=0 to n-1 do
        if a[i]<0 then
         begin
           t:=i;
           Break;
         end;
      k:=-1;
       for i:=0 to n-1 do
        if a[i]=0 then
         begin
           k:=i;
           Break;
         end;
      if (k<>-1) then
       if (t<>-1) then
        begin
          i:=a[t];
          a[t]:=a[k];
          a[k]:=i;
          for i:=0 to n-1 do
           Write(a[i]:4);
        end;
      a:=nil;
    ReadKey;
end.

 

[Vladimir_S]

Женя, как будем барышень делить ?
http://www.tehnari.ru/f43/t250863/

Опять же
http://www.tehnari.ru/f43/t250865/
и
http://www.tehnari.ru/f43/t250864/

Дорогие московские студентки, вы бы уж как-то скооперировались, что ли, чем одни и те же задачки на форум сбрасывать!