сумму чисел с массивами [Паскаль]

[syrga]

дана последовательность из n различных чисел. найти сумму цифр этой последовательности, расположенных между максимальной и минимальной числами(в сумму включить и эти числа)

[Mad_Cat]

сумму цифр или сумму чисел?

//для чисел
{....}
i1:=1;
for i:=1 to n do 
if a[i]>a[i1] then i1:=i;
i2:=1;
for i:=1 to n do 
if a[i]<a[i2] then i2:=i;
s:=0;
if i2>=i1 then for i:=i1 to i2 do s:=s+a[i]
else for i:=i2 to i1 do s:=s+a[i];
writeln(s);