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


Ответ
 
Опции темы Опции просмотра
Старый 19.12.2016, 10:28   #1 (permalink)
kat.l.a
Новичок
 
Регистрация: 19.12.2016
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию HELP массив-матрица

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

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

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

Дана квадратная матрица А из N элементов. Получить из нее одномерный массив, язык C++
Паскаль. Матрица. Массив

Старый 19.12.2016, 11:29   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 23,854
Сказал(а) спасибо: 137
Поблагодарили 278 раз(а) в 93 сообщениях
Репутация: 61181
По умолчанию

Цитата:
Сообщение от kat.l.a Посмотреть сообщение
Задан вектор из N элементов. Поменять первый элемент, имеющий отриц значение с первым нулевым элементом местами.
Код:
Const
 N=15;

Var
 X:Array[1..N] of Integer;
 a,b:Integer;
 i,Ia,Ib:byte;
 c:boolean;

Begin
 Randomize;
 Writeln('Initial array:');
 for i:=1 to N do
  begin
   X[i]:=-5+Random(10);
   Write(X[i]:4);
  end;
 Writeln;
 Writeln;
 c:=true;
 i:=0;
 Repeat
  i:=i+1;
 Until (X[i]<0) or (i=N);
 if X[i]<0 then
  begin
   a:=X[i];
   Ia:=i;
  end
 else
  begin
   c:=false;
   Writeln('No negative elements!');
  end;
 if c then
  begin
   i:=0;
   Repeat
    i:=i+1;
   Until (X[i]=0) or (i=N);
   if X[i]=0 then
    begin
     b:=X[i];
     Ib:=i;
    end
   else
    begin
     c:=false;
     Writeln('No zero elements!');
    end;
  end;
 if c then
  begin
   X[Ia]:=b;
   X[Ib]:=a;
   Writeln('New array:');
   for i:=1 to N do Write(X[i]:4);
  end;
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

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

Метки
pascal, вектор, массив, паскаль

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

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

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




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


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