Вопрос по информатике:
Сортировать нечетные числа с помощью прямого включения в одномерном массиве. Pascal abc.net
Четные элементы должны остаться на своем месте.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.06.2015 03:28
- Информатика
- remove_red_eye 18407
- thumb_up 10
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var x:=a.Where(x->x.IsOdd).ToArray;
for var i:=1 to x.Count-1 do begin
var (j,l):=(i-1,x[i]);
while (j>=0) do
if x[j]>l then begin x[j+1]:=x[j]; j-=1 end
else break;
x[j+1]:=l
end;
var j:=0;
for var i:=0 to x.Length-1 do begin
while a[j].IsEven do j+=1;
a[j]:=x[i]; j+=1
end;
a.Println;
end.
Пример
n= 15
49 10 3 44 -25 31 -18 -9 29 43 -24 -45 -19 45 -19
-45 10 -25 44 -19 -19 -18 -9 3 29 -24 31 43 45 49
- 06.06.2015 18:05
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.