Задание заполните массив случайными числами в интервале [100..999] и переставьте их по возрастанию суммы цифр.
Задание заполните массив случайными числами в интервале [100..999] и переставьте их по возрастанию суммы цифр.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы