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

Массив: Переписать все нечетные значения в начало, а все четные в конец

16.11.2015, 19:14. Показов 4304. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
дан одномерный массив, содержащий n значений. переписать все нечетные значения в начало, а все четные в конец
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2015, 19:14
Ответы с готовыми решениями:

Дан одномерный массив А. Перенести в начало массива все четные элементы, а в конец - все нечетные
Помогите пожалуйста написать программу на языке "Си": Дан одномерный массив А состоящий из N...

Дан массив целых чисел. Переместить в начало все нечетные числа, а в конец все четные
Дан массив целых чисел.Переместить в начало все нечетные числа,а в конец все четные.(В паскале)

Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные
Помогите, пожалуйста. >>"Дан одномерный массив А, состоящий из N элементов. Сколько значений...

Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные
Помогите, пожалуйста. >>"Дан одномерный массив А, состоящий из N элементов. Перенести в начало...

2
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
16.11.2015, 19:49 2
Лучший ответ Сообщение было отмечено KravchenkovaI как решение

Решение

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
const n=80;
var a:array[1..n]of integer;
    i,k,j,x:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if odd(a[i]) then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
 end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:4);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7785 / 4611 / 2827
Регистрация: 22.11.2013
Сообщений: 13,106
Записей в блоге: 1
17.11.2015, 12:07 3
Поскольку сохранять порядок следования не требуется, можно не двигать остаток массива, только необходимые элементы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n=80;
var
  a: array [1..n] of Integer;
  i, j, t: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=Random(100);
  WriteLn('A='); for i:=1 to n do Write(a[i]:4); WriteLn;
 
  i:=1; j:=n;
  while i<j do begin
    if Odd(a[i]) then Inc(i)
    else begin
      t:=a[j]; a[j]:=a[i]; a[i]:=t; Dec(j);
    end;
  end;
 
  WriteLn('A''='); for i:=1 to n do Write(a[i]:4); WriteLn;
end.
0
17.11.2015, 12:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2015, 12:07
Помогаю со студенческими работами здесь

Поставить в начало массива все четные элементы, а конец – все нечетные
Всем доброго времени суток.Помогите написать процедуру, которая ставит в начало массива все четные...

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

Дан числовой массив A размера N. Все четные его элементы поместить в начало массива B, а нечетные элементы - в конец
#include &lt;stdio.h&gt; #include &lt;malloc.h&gt; #include &lt;stdlib.h&gt; #include &lt;locale.h&gt; int main (int...

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


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

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

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