массивы, помогите решить задачу Опции

[oksana_]

Создать массив из 12 целых чисел, которые вводятся с клавы. Расположить массивы по сумме цифр в чисел: положительные числа в убывающей последовательности, а негативные - в возрастающей последовательности.

[nikitossssss]

Вот мой вариант решения, рабочий, прада формат вывода не супер но думаю он вас устроит, вообщем если что пишите.

program miss2;

var
mas : array[1..12] of integer;
mas1 : array[1..12] of integer;
mas2 : array[1..12] of integer;
j,i,k,n : integer;
begin
writeln('vvedite 12 chisel');

for i:=1 to 12 do begin
readln(mas[i]);
end;

for i:=1 to 12 do begin
if mas[i] < 0 then mas2[i] := mas[i];
if mas[i] > 0 then mas1[i] := mas[i];
end;

for j:=1 to 11 do
for i:=1 to 11 do
if mas1[i] > mas1[i+1] then begin
k := mas1[i];
mas1[i]:= mas1[i+1];
mas1[i+1]:=k;
end;


for j:=1 to 11 do
for i:=1 to 11 do
if mas2[i] < mas2[i+1] then begin
n := mas2[i];
mas2[i]:= mas2[i+1];
mas2[i+1]:=n;
end;


for i:=1 to 12 do begin
write(mas2[i],' ');

end;
writeln;

for i:=1 to 12 do begin
write(mas1[i],' ');
end;

end.