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

@KravchenkovaI · Регистрация: 16.11.2015

дан одномерный массив, содержащий n значений. переписать все нечетные значения в начало, а все четные в конец

@Puporev · 16.11.2015, 19:49

Pascal

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.

@bormant · 17.11.2015, 12:07

Поскольку сохранять порядок следования не требуется, можно не двигать остаток массива, только необходимые элементы:

Pascal

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.

@KravchenkovaI 0 / 0 / 0 Регистрация: 16.11.2015 Сообщений: 1
		1
	Массив: Переписать все нечетные значения в начало, а все четные в конец 16.11.2015, 19:14. Показов 4088. Ответов 2 Метки нет (Все метки) дан одномерный массив, содержащий n значений. переписать все нечетные значения в начало, а все четные в конец 0

Опции темы

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

Решение