Создать массив о работниках из пяти записей следующего вида табельный номер (2 байта), фамилия (25 байт), пол (1 байт), количество детей (1 байт). написать программу на языке ассемблер которая помещает в стек табельные номера работников женщин имеющих детей
c:array[1..100] of integer;
s,j,n,i:integer;
begin
readln(n);
for i:=1 to n do
read(c[i]);
//Сортировка по возрастанию
for j:=1 to n-1 do
for i:=1 to n-j do
if c[i]>c[i+1] then
begin
s:=c[i];
c[i]:=c[i+1];
c[i+1]:=s;
end;
//Вывод
for i:=1 to n do
write(c[i],' ');
writeln;
//Сортировка по убыванию
for j:=1 to n-1 do
for i:=1 to n-j do
if c[i]<c[i+1] then
begin
s:=c[i];
c[i]:=c[i+1];
c[i+1]:=s;
end;
//Вывод
for i:=1 to n do
write(c[i],' ');
end.