Question

试编写汇编语言程序，实现N个从键盘上输入的整数的加法运算，其中N从键盘输入

急！

Answer 1

var a:array[1..30]of longint;

n,i,j,t:integer;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;
i:=1; j:=1;
while i<n do
begin
write(a[i],':');
while (i<n)and(a[i]=a[i+1]) do begin inc(i); inc(j) end;
writeln(j); inc(i); j:=1;
end;
if i=n then writeln(a[n],':1');
end.