Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
14 января 2023 22:59
752
Задание заполните массив случайными числами в интервале [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.Укажите время утверждения григорианс...
Приведите число 284 из девятеричной системы счисления в троичную систему счисления. Сколько двоек содержит полученное число? В ответе укажите одно чис...
При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 15 символов и содержащий только символы из 26 -символьного н...
Пароль содержит 8 символов .Больших и малых латинских букв,цифр и некоторых знаков. Всего разрешенных символов 92. Составьте числовое выражение для об...