Что и куда нужно вписать в этом коде, чтобы он помимо того, что он сейчас делает еще и считал сумму цифр соответствующих элементов

[Romeshek]

Извиняюсь за предыдущую тему, учту

program apple;

const
    m = 10;

 
var
    arr: array[1..m] of integer;
    i, j, k: integer;
 
begin
    randomize;
 
    write ('Исходный массив: ');
    for i := 1 to m do
    begin
        arr[i] := random(99);
        write (arr[i]:4);
    end;
    writeln; 
 
 
    for i := 1 to m-1 do
        for j := 1 to m-i do
            if arr[j] > arr[j+1] then 
            begin
                k := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := k
            end;
 
    write ('Отсортированный массив: ');
    for i := 1 to 10 do
        write (arr[i]:4);
 
    writeln;
 

end.

[p51x]

Добавить счетчик и там, где вы встречаете соответствующие элементы, то его увеличиваете на 1.

[Romeshek]

благодарю

[Serge_Bliznykov]

Сообщение от Romeshek

еще и считал сумму цифр соответствующих элементов

а это что такое ?
какие элементы являются "соответствующими"? и зачем Вам сумма цифр? (кстати, надеюсь, это не опечатка и Вы знаете, чем цифры отличаются от чисел?)

если тема не закрыта - то покажите не примере, что дано и что надо получить.


p.s. извините, если я задаю глупые вопросы, а Вы уже со всем разобрались и всё сделали.