0 / 0 / 0
Регистрация: 28.11.2019
Сообщений: 96
1

Все четные элементы переместить в конец массива

02.12.2019, 22:21. Показов 1289. Ответов 1
Метки нет (Все метки)

Написать программу на Pascal.
В одномерном массиве все четные элементы переместить в конец массива, остальные элементы должны сохранять свой относительный порядок.

Условия к задаче:
Формат ввода:
В первой строке дано количество элементов массива - натурально число N (N ≤ 10^3)
Во второй строке даны N целых чисел ai, каждое из которых по модулю не превосходит 10^5

Формат вывода:
В ответе выведите N чисел массива, в котором четные числа стоят в конце, а нечетные в начале, причем среди четных и нечетных чисел сохраняется порядок относительно друг друга.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2019, 22:21
Ответы с готовыми решениями:

В массиве все нулевые элементы переместить в конец массива, порядок остальных элементов должен оставаться первоначальным
Написать программу на Pascal. В одномерном массиве все нулевые элементы переместить в конец...

Переместить все нули в конец массива
. Заполнить одномерный массив числами от 0 до 5. Переместить все нули в конец массива. При решении...

Все одинаковые элементы переместить в конец массива
Program elem; uses crt; const n=12;m=10;p=120; type tvector=array of integer; ...

Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево
1. Одномерный массив А длиной М. Переместить нулевые элементы массива в конец, сдвинув остальные...

1
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
03.12.2019, 10:28 2
Взято отсюда: Нули в массиве перенести в конец массива, не меняя порядок остальных элементов
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
uses
crt;
 
const
  n = 10;
 
var
  a: array[1..n]of integer;
  i, j, temp: integer;
 
begin
  clrscr;
  {çàäàåì âûâîäèì ñ÷èòàåì}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i := 1 to n do
  begin
    a[i] := random(8) - 4;
    write(a[i], ' ')
  end;
  writeln(']');
  {ñîðòèðóåì}
  for i := 1 to n do
    if not odd(a[i]) then
      for j := i + 1 to n do
      begin
        temp := a[j];
        a[j] := a[j - 1];
        a[j - 1] := temp
      end;
  {âûâîäèì ìàññèâ}
  writeln('Ïîëó÷åííûé ìàññèâ:');
  write('[ ');
  for i := 1 to n do
    write(a[i], ' ');
  writeln(']');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2019, 10:28
Помогаю со студенческими работами здесь

В столбцах матрицы A переместить в конец все элементы, модуль которых больше S
Составить программу по заданному условию. Первая часть условия является заданием на разработку...

В одномерном массиве все отрицательные элементы переместить в начало, а остальные-в конец
В одномерном массиве все отрицательные элементы переместить в начало массива, а остальные-в конец с...

Переместить в начало массива все нечетные числа, а в конец все четные
Переместить в начало все нечетные числа, а в конец все четные.

В заданной строке матрицы все четные элементы переместить в начало, а нечетные в конец
С клавиатуры вводится произвольная двумерная матрица (не более 5*5), после чего делается ее...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru