 
Задание заполните массив случайными числами в интервале [100..999] и переставьте их по возрастанию
суммы цифр. 0
        0
         0
        0
    Ответы на вопрос
 
        a:array [1..10] of integer;
i,j,k:integer;
function Sum(c:integer):integer;
var s:integer;
begin
s:=c mod 10;
c:=c div 10;
s:=s + c mod 10;
s:=s + c div 10;
sum:=s;
end;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(900)+100;
write(a[i],' ');
end;
writeln;
writeln('Массив после перестановок:');
for i:=1 to 9 do
for j:=(i+1) to 10 do
if sum(a[i])>sum(a[j]) then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.
 0
                    0
                     0
                    0
                 
            Хорошо, давайте разберемся с этим заданием на примере языка программирования Python. Для заполнения массива случайными числами в интервале [100..999] и их перестановки по возрастанию суммы цифр можно использовать следующий код:
```python import random
# Задаем размер массива array_size = 10 # Можете изменить на желаемый размер массива
# Создаем массив и заполняем случайными числами в интервале [100..999] array = [random.randint(100, 999) for _ in range(array_size)]
# Функция для вычисления суммы цифр числа def digit_sum(number): return sum(int(digit) for digit in str(number))
# Сортируем массив по возрастанию суммы цифр array.sort(key=digit_sum)
# Выводим исходный массив и отсортированный массив print("Исходный массив:", array) print("Отсортированный массив по сумме цифр:", array) ```
В этом коде мы используем библиотеку `random` для генерации случайных чисел и создаем массив с помощью генератора списка. Затем мы определяем функцию `digit_sum`, которая вычисляет сумму цифр числа. Мы используем эту функцию как ключ для сортировки массива, чтобы получить отсортированный массив по возрастанию суммы цифр каждого числа.
Вы можете изменить переменную `array_size` на нужное вам количество элементов в массиве.
 0
                    0
                     0
                    0
                Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
- 
			Математика 
- 
			Литература 
- 
			Алгебра 
- 
			Русский язык 
- 
			Геометрия 
- 
			Английский язык 
- 
			Химия 
- 
			Физика 
- 
			Биология 
- 
			Другие предметы 
- 
			История 
- 
			Обществознание 
- 
			Окружающий мир 
- 
			География 
- 
			Українська мова 
- 
			Информатика 
- 
			Українська література 
- 
			Қазақ тiлi 
- 
			Экономика 
- 
			Музыка 
- 
			Право 
- 
			Беларуская мова 
- 
			Французский язык 
- 
			Немецкий язык 
- 
			МХК 
- 
			ОБЖ 
- 
			Психология 
- 
			Физкультура и спорт 
- 
			Астрономия 
- 
			Кыргыз тили 
- 
			Оʻzbek tili 
 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			