Технический форум

Технический форум (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, время: 11:45.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.