Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.02.2018 13:06
- Информатика
- remove_red_eye 14871
- thumb_up 25
Ответы и объяснения 1
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);a.Println;
var b := a.IndexesOf(t -> t.IsEven).ToArray;
var b1 := a.Where(t -> t.IsEven).Sorted.ToArray;
var b2 := ArrFill(a.Length, 1);
if b.Length < 0 then begin a.Println; exit; end;
for var i := 0 to b.Length - 1 do b2[b[i]] := b1[i];
for var i := 0 to a.Length - 1 do if b2[i].IsOdd then b2[i] := a[i];
b2.Println;
end.
Пример:
n= 10
30 9 27 25 -34 25 -5 5 46 -46
-46 9 27 25 -34 25 -5 5 30 46
- 01.01.1970 00:00
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.