Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
14 января 2023 22:59
698
Задание заполните массив случайными числами в интервале [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
Остались вопросы?
Еще вопросы по категории Информатика
Сколько школьных учебников емкостью 350 кб можно разместить на трехдюймовой дискете...
Что это такое и как обозначается конъюнкция дизъюнкция инверсия эквивалентность импликация...
Укажите количество итераций для каждого цикла: 1) for i in range (0,10,2): print(i) ...
Чему равен 1 Кбайт?Выберете один ответ:а)1000 байт б)102байт в)2 в 10 степени байт г)1000 бит...
Файл -это................
Все предметы