Технический форум купить трафик таргетированный
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2016, 11:32   #1 (permalink)
masha_tazina
Новичок
 
Регистрация: 19.12.2016
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Напишите программу, пожалуйста

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

Старый 19.12.2016, 11:32
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Наверняка в похожих темах есть информативные ответы

Напишите программу в Паскале
Напишите программу
Напишите, пожалуйста, программу на QBasic

Старый 19.12.2016, 14:22   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,007
Сказал(а) спасибо: 8
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 7191
По умолчанию

Код:
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.
Евгений вне форума   Ответить с цитированием
Старый 19.12.2016, 14:33   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 24,134
Сказал(а) спасибо: 149
Поблагодарили 300 раз(а) в 102 сообщениях
Репутация: 64735
По умолчанию

Женя, как будем барышень делить ?
HELP массив-матрица

Опять же
Нужна помощь
и
Массив-матрица

Дорогие московские студентки, вы бы уж как-то скооперировались, что ли, чем одни и те же задачки на форум сбрасывать!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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


Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.