function summa(n:integer):integer;
var a,s:integer;
begin
a:=abs(n);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
summa:=s
end;
const n=10;
var A:array [1..n] of integer;
j,i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do
begin
A[i]:=random(15)+1;
write(A[i]:4);
end;
for i:=1 to n-1 do
begin
for j:=1 to n-1 do
if summa(A[j])<summa(A[j+1]) then
begin
k:=A[j];
A[j]:=A[j+1];
A[j+1]:=k
end;
end;
writeln;
writeln('Отсортированный массив: ');
for i:=1 to n do
write(A[i]:4);
readln
end.
function summa(n:integer):integer;
var a,s:integer;
begin
a:=abs(n);
s:=0;
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
summa:=s
end;
const n=10;
var A:array [1..n] of integer;
j,i,k:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do
begin
A[i]:=random(15)+1;
write(A[i]:4);
end;
for i:=1 to n-1 do
begin
for j:=1 to n-1 do
if summa(A[j])<summa(A[j+1]) then
begin
k:=A[j];
A[j]:=A[j+1];
A[j+1]:=k
end;
end;
writeln;
writeln('Отсортированный массив: ');
for i:=1 to n do
write(A[i]:4);
readln
end.
ОТВЕТ: 3) С:\Школа\Биология\Анатомия
на один уровень вверх,значит из Природоведения в Биологию;далее в Зоологию;затем поднялся опять ввёрх в Биологию;потом спустился вниз в Анатомию
(ответ номер 2)неподходит т.к.в папке Биология находилось три раздела:Природоведение,Зоология,Анатомия)
Cоответственно если он закончил на разделе Анатомия,то полный путь каталога,в котором оказался пользователь,будет заканчиваться соответственным разделом -- Анатомия;что мы и наблюдаем в ответе номер 3)