Вопрос по информатике:
Задан массив из n действительных чисел. Отрицательные числп в заданном массиве упорядочить по убыванию их значений.Вывести на экран исходный и новый массив.(Паскаль)
Пожаловаться
- 06.10.2017 09:48
- Информатика
- remove_red_eye 2897
- thumb_up 37
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-50,50).Select(x->x/10).ToArray;
a.Println;
var b:=a.Where(x->xx).ToArray;
var j:=0;
for var i:=0 to a.Length-1 do
if a[i]<0 then (a[i],j):=(b[j],j+1);
a.Println;
end.
Пример
n= 15
-3.6 -4.9 -4.2 1.8 -0.8 3.1 -3.3 -4.7 -2 4.1 3.1 2.3 4 -3.3 -1.6
-0.8 -1.6 -2 1.8 -3.3 3.1 -3.3 -3.6 -4.2 4.1 3.1 2.3 4 -4.7 -4.9
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-50,50).Select(x->x/10).ToArray;
a.Println;
var b:=a.Where(x->xx).ToArray;
var j:=0;
for var i:=0 to a.Length-1 do
if a[i]<0 then (a[i],j):=(b[j],j+1);
a.Println;
end.
Пример
n= 15
-3.6 -4.9 -4.2 1.8 -0.8 3.1 -3.3 -4.7 -2 4.1 3.1 2.3 4 -3.3 -1.6
-0.8 -1.6 -2 1.8 -3.3 3.1 -3.3 -3.6 -4.2 4.1 3.1 2.3 4 -4.7 -4.9
Пожаловаться
- 07.10.2017 21:56
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы