Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
В строке формул можно посмотреть формулы.
Лист защищен без пароля, чтобы случайно не уничтожить формулы
Это программа упорядочивает элементы вам надо создать еще один массив в который будете сохранять номера элементов , хотя в принципе можете попробывать по другому