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

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

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

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

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

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

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

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

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

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, a2, ..., аn. Указать те ее...

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

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


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

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

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