Массив: Найти число с наименьшей суммой цифр, и переставить его в середину массива...

@Роман173 · Регистрация: 22.01.2019

Студворк — интернет-сервис помощи студентам

В одномерном массиве, заполненном целыми числами, найти число с наименьшей
суммой цифр, и переставить его в середину массива
Pascal ABC

@Puporev · 22.01.2019, 14:00

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
function sum(n:integer):byte;
var m:integer;
    s:byte;
begin
m:=n;
s:=0;
repeat
s:=s+m mod 10;
m:=m div 10;
until m=0;
sum:=s;
end;
const n=19;
var a:array[1..n] of integer;
    i,min,imn:byte;
    x:integer;
begin
randomize;
writeln('Исходный массив');
min:=100;
for i:=1 to n do
 begin
  a[i]:=100+random(900);
  write(a[i]:4);
  if sum(a[i])<min then
   begin
    min:=sum(a[i]);
    imn:=i;
   end;
 end;
writeln;
writeln('Минимальная сумма цифр=',min,' у элемента ',a[imn]);
x:=a[imn];
if imn>n div 2+1 then
for i:=imn downto n div 2+2 do
a[i]:=a[i-1]
else
for i:=imn to n div 2 do
a[i]:=a[i+1];
a[n div 2+1]:=x;
writeln('Перестановка массив');
for i:=1 to n do
write(a[i]:4);
end.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Роман173 0 / 0 / 0 Регистрация: 22.01.2019 Сообщений: 2

	Массив: Найти число с наименьшей суммой цифр, и переставить его в середину массива... 22.01.2019, 12:29. Показов 1977. Ответов 1 Метки нет (Все метки) В одномерном массиве, заполненном целыми числами, найти число с наименьшей суммой цифр, и переставить его в середину массива Pascal ABC 0