Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 января 2023 22:59
908
Задание заполните массив случайными числами в интервале [100..999] и переставьте их по возрастанию суммы цифр.
1
ответ
Var
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.
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
·
Хороший ответ
16 января 2023 22:59
Остались вопросы?
Еще вопросы по категории Информатика
1. Сколько гигабайт информации содержится в сообщении объёмом четверть терабайта? 2. Укажите правильный порядок убывания перечисленных единиц измерени...
В сети интернет найдите информацию о современных принтерах и заполните таблицу:...
Операционные системы входят в состав: а) системы управления базами данных б) систем программирования в) прикладного ПО г) системного ПО...
Покупки Что нужно сделать: Составьте список покупок минимум из 5 пунктов. И проделайте следующие операции: 1.Добавьте еще один пункт 2.Замените 2...
Вариант 2 1. Найдите ошибку. Файл – это: а) Любая информация, записанная на технические носители под определенным именем б) Программа, записанная на...