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

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

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

Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2009, 20:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы (Pascal):

2. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность
Написал программу var a,c:array of integer; count,i,p,u: integer; begin for i:=1 to 10 do begin read(p); a:=p; end;

дана последовательность вещественных чисел а1,а2,.а15 Определить являеться ли последовательность упорядоченной по возрастанию
дана последовательность вещественных чисел а1,а2,...а15 Определить являеться ли последовательность упорядоченной по возрастанию. В случае...

Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные
Получить из исходной последовательности две: первая последовательность содержит отрицательные нечетные элементы; вторая...

Дана действительная матрица размера r x t. Получить последовательность чисел b1, b2., bt; где bi, ()
Дана действительная матрица размера r x t. Получить последовательность чисел b1, b2..., bt; где bi, (i=1,2,...,t) это наименьшее из...

Дана последовательность чисел x1,x2..нужно поменять местами мах и мин элементы
uses crt; var a:array of integer; r,k,p,i,n:integer; min,max:integer; begin write('введите количество элементов '); ...

Дана последовательность действительных чисел . Указать те ее элементы, которые принадлежат отрезку
Дана последовательность действительных чисел a1, a2, ..., аn. Указать те ее элементы, которые принадлежат отрезку .

1
lexus_ilia
3050 / 710 / 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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2009, 21:34
Привет! Вот еще темы с решениями:

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о
Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести...

Дана действительная матрица размера n на m. Получить последовательность b1,..,bn, где bk- это произведение квадратов тех элементов k-й строки
Дана действительная матрица размера n на m. Получить последовательность b1,..,bn, где bk- это произведение квадратов тех элементов k-й...

получить все элементы последовательности B которые не входят в последовательность A
Привет помогите пожалуйста написать программу по другому, Даны натуральные числа n и m, целые числа a(1),...,a(m) и b(1),...,b(n). Среди...

Дана последовательность из 100 чисел. Удалить элементы равные максимальному значению. Вставить значение К межд
Дана последовательность из 100 чисел. Удалить элементы равные максимальному значению. Вставить значение К между соседними элементами,...


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

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

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