Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Aionoff62
3 / 3 / 1
Регистрация: 27.05.2013
Сообщений: 87
1

Из элементов произвольно заданного массива сформировать массив, в котором в начале расположены отрицательные

09.05.2014, 22:26. Просмотров 658. Ответов 3
Метки нет (Все метки)

Помогите из элементов произвольно заданного массива сформировать массив, в котором в начале расположены отрицательные, а далее положительные элементы исходного массива.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2014, 22:26
Ответы с готовыми решениями:

Сформировать новый массив, состоящий из элементов заданного массива, значение которых не превышает номера ячейки, в которой они расположены
Напишите программу, которая формирует новый массив, состоящий из элементов...

Сформировать массив Z таким образом, чтобы в начале шли отрицательные элементы массива Y, затем положительные
помогите решить, пожалуйста! Задан массив Y из N целых чисел. Сформировать...

Сформировать новый массив из элементов исходного массива, которые расположены после максимального элемента
Написать программу, которая формирует новый массив, состоящий из элементов...

Сформировать массив, в котором сначала расположены малые, а затем большие латинские буквы исходного
Дан символьный массив a1,a2,...,ak.Сформировать новый, в котором сначала...

Сформировать новый массив из элементов матрицы A и заданного массива T
Здравствуйте, форумчане! Такое задание: Для двух заданных массивов C,B разной...

3
code-n'-help
Форумчанин Паскаля
76 / 89 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
09.05.2014, 22:30 2
по возростанию? То есть отсортированный ?

Добавлено через 2 минуты
Если нет тогда два цикла:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
counter:=1;
for i:=1 to n do
if mas[i]<0 
then begin
new_mas[counter]:=mas[i];
inc(counter);
end;
for i:=1 to n do
if n>=0 
then begin
new_mas[counter]:=mas[i];
inc(counter);
end;
0
Aionoff62
3 / 3 / 1
Регистрация: 27.05.2013
Сообщений: 87
09.05.2014, 22:40  [ТС] 3
А можете полностью программу показать? ато в var ругается
0
Svager
397 / 376 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
10.05.2014, 02:12 4
Цитата Сообщение от Aionoff62 Посмотреть сообщение
ато в var ругается
ну конечно, вамcode-n'-help, показал только алгоритм..как бы могли бы дописать сами
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses crt;
const nmax=20;
var a,b:array[1..nmax] of integer;
    i,j,n:integer;
begin
clrscr;
 repeat
  write('n=');
   readln(n);
 until n in [1..nmax];
 writeln('ГЊГ*Г±Г±ГЁГў :');
 for i:=1 to n do
  begin
   a[i]:=-10+random(20);
    write(a[i]:4);
  end;
 writeln;
  j:=1;
   for i:=1 to n do
    begin
     if a[i]<0 then
      begin
       b[j]:=a[i];
       inc(j);
      end;
    end;
   for i:=1 to n do
    begin
     if a[i]>=0 then
      begin
       b[j]:=a[i];
       inc(j);
      end;
    end;
  writeln('Íîâûé Г¬Г*Г±Г±ГЁГў :');
  for i:=1 to j-1 do
   write(b[i]:4);
readkey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2014, 02:12

Из суммы пар элементов заданного массива сформировать новый массив
Помогите пожалуйста написать программу, которая из суммы пар элементов...

Сформировать массив, состоящий из элементов массива, значение которых больше заданного индекса
Привет господа и дамы, кто сможет, помогите по задачкам 1.Дан одномерный...

Переформировать массив, расположив в начале массива все отрицательные элементы, а потом положительные
Даны натуральное число n и вещественные числа a1,a2,...,an. Переформировать...


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

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

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