Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
14 января 2023 22:59
633
Задание заполните массив случайными числами в интервале [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
Остались вопросы?
Еще вопросы по категории Информатика
Алфавит некоторого языка состоит из 64 символов. За сколько секунд передать текст из 2000 символов. если скорость передачи данных 50 байтов в секунду....
С какого символа должна начинаться формула в Excel = A пробел не имеет значение...
Вопросы и задания На сервере edu.ru находится файл demo.гаг, доступ к которому осуществляется по протоколу ftp. Фрагменты адреса данного файла закод...
составьте блок-схему алгоритма выполнения домашнего задания по математике, состоящего из нескольких примеров. Оформите блок-схему в графическом редакт...
10.Найдите во Всемирной паутине информацию о количестве пользователей самых распространенных поисковых систем? 11. Даны запросы к поисковой системе:...