Hello Вадим,
Saturday, March 5, 2005, 1:20:07 AM, you wrote:
| ВШ> Friday, March 4, 2005, 4:59:01 PM, you wrote: |
| G>> Как переместить четные числа в начало, а нечетные в конец не изменяя порядка |
| G>> следования чисел с одинаковой четностью. G>> есть G>> 12 7 9 6 -5 -6 G>> 4 6 -7 23 -24 9 |
| G>> надо G>> 12 6 -6 7 9 -5 G>> 4 6 -24 -7 23 9 |
| G>> uses crt; G>> const n=9; G>> type mas=array[1..6] of integer; G>> var G>> f:file of mas; G>> i,x,min,max,num_of_max:integer; G>> a:mas; G>> begin G>> clrscr; G>> randomize; G>> assign(f,'000.000'); G>> rewrite(f); G>> for i:=1 to n do G>> begin G>> for x:=1 to n do G>> begin G>> a[x]:=random(99); G>> write(a[x]:3); G>> end; G>> writeln; G>> write(f,a); G>> writeln; G>> end; G>> close(f); |
Упс..... Поправлю сам себя:
1. Просмотреть массив слева направо и найти первый нечетный элемент -
запомнить его индекс -- переменная р.
| ВШ> 1а. Короче говоря, массив нужно просматривать с конца (справо налево). Если |
текущий
| ВШ> элемент четен, то, ВШ> 2. Запомнить его значение. ВШ> 3. Все элементы слева от него до индекса р сдвинуть вправо на один элемент. ВШ> 3. Запомненное значение записать в р-й элемент. |
4. Увеличить р на 1.
5. Повторять с п.1а до тех пор, пока р меньше количества элементов
массива.
Здравствуйте !
Люди, plz, уберите избыточное цитирование
(удаляйте все ненужное, не нужное для понимания темы)
из писеем при ответе.
--
С уважением, Вахтуров Виктор.
Номер выпуска : 4119
Возраст листа : 531 (дней)
Количество подписчиков : 522
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/327979
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru