Перемещение массива в файле, Перемещение массива в файле Опции

[Gift]

Как переместить четные числа в начало, а нечетные в конец не изменяя порядка
следования чисел с одинаковой четностью.
есть
12 7 9 6 -5 -6
4 6 -7 23 -24 9

надо
12 6 -6 7 9 -5
4 6 -24 -7 23 9

Код

uses crt;
const n=9;
type mas=array[1..6] of integer;
var
f:file of mas;
i,x,min,max,num_of_max:integer;
a:mas;
begin
clrscr;
randomize;
assign(f,'000.000');
rewrite(f);
for i:=1 to n do
begin
for x:=1 to n do
begin
 a[x]:=random(99);
 write(a[x]:3);
end;
writeln;
write(f,a);
writeln;
end;
close(f);

Код - в теги !!!

[volvo]

А "просто выкидывать условия" - бесполезно... Тут могут помочь, но решать все полностью, да еще после того, как на приведенное рещение ты отвечаешь своим - это навряд ли. Значит, умеешь, но не хочешь...

[Guest]

А "просто выкидывать условия" - бесполезно... Тут могут помочь, но решать все полностью, да еще после того, как на приведенное рещение ты отвечаешь своим - это навряд ли. Значит, умеешь, но не хочешь...

да мне и помогли с функцией odd, я ее раньше и не знал
я от нее и оттолкнулся+метод Шелла(это там где сортировка)+стандартного ввода ну и пожалуй все

1. мне хоть бы пример как с таким работать, ну скажем просто найти сумму у какойнить диагонали

2. тут вобще в догадках теряюсь

3. знаю как там буквами играть, а со словами лажа получаеться