Технический форум - Напишите программу, пожалуйста

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Напишите программу, пожалуйста (http://www.tehnari.ru/f43/t250867/)

masha_tazina

19.12.2016 11:32

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

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

Евгений

19.12.2016 14:22

Код:

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

19.12.2016 14:33

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

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

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

Часовой пояс GMT +4, время: 14:26.