Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 08.01.2009
Сообщений: 14
1

Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы

22.02.2009, 20:05. Просмотров 1860. Ответов 1
Метки нет (Все метки)


Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.02.2009, 20:05
Ответы с готовыми решениями:

Получить новую последовательность, исключив из исходной отрицательные элементы
Дана последовательность n натуральных чисел, среди которых имеются положительные и отрицательные....

Дана последовательность, расположить ее отрицательные элементы по убыванию
Помогите решить. *Условие* Массив заполняется произвольно. Количество элементов массива...

Дана последовательность. Получить из нее новую по данному закону
не могу решить 344 не представляю как ее написать помогите прошу!

Дана последовательность, расположить ее отрицательные элементы по убыванию
Дана последовательность, расположить ее отрицательные элементы по убыванию.

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
3064 / 724 / 69
Регистрация: 24.09.2008
Сообщений: 1,531
22.02.2009, 21:34 2
Держи...
Код
Program xa;
var
 a:array[1..50] of integer;
 i,n,j:integer;
begin
 {Randomize;}  {Для ввода рандомом, расскоментируй}
 Writeln('BBeDuTe KoLu4eCTBo elemeHtoB maccuBa');
 Readln(n);
 Writeln('BBeDute eLeMeHTbl MaccuBa');
 for i:=1 to n do
 begin
 {a[i]:=random(50)-25;} {и эту тоже, а две ниже этой-закомментируй}
  {Write('A[' ,i, ']=');
  Readln(a[i]);}
 end;
 Writeln;
 Writeln('MaccuB do u3MEHeHUu');
 for i:=1 to n do
   Write(a[i], ' ');
 i:=1;
 While i<=n do
 begin
   if a[i]<0 then
   begin
     for j:=i to n-1 do
       a[j]:=a[j+1];
     dec(n);
     dec(i);
   end;
   inc(i);
 end;
 Writeln;
 if n>0 then
 begin
   Writeln('MaccuB noCle u3MeHeHUu');
   for i:=1 to n do
     Write(a[i], ' ')
 end
 else
   Writeln('MaccuB nyCT');
 readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.02.2009, 21:34

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Дана последовательность целых чисел a1,a2,. . Образовать новую последовательность, исключив из исходной те члены, которые равны min(a1,a2,.)
Последовательность находится в StringGrid.

Дана последовательность целых чисел. Получить новую последовательность.
Помогите решить задачу! Дана последовательность целых чисел a1, a2, …, an (n&lt;=40). Получить новую...

дана последовательность целых чисел a=(a1,a2,.,an). Получите новую последовательность, выбросив из исходной элементы со значением max (a1,a2,.,an
дана последовательность целых чисел a=(a1,a2,....,an). Получите новую последовательность, выбросив...

Дана последовательность целых чисел a1,a2 ,an . Образовать новую последовательность, выбросив из исходной те члены, к
Код не всегда работает так как нужно. Не могу понять в чем проблема. Помогите... import...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.