急！几道简单的编程的题，求助！！急

急！几道简单的编程的题，求助！！急

楼主的问题实在太多了，时间关系，恕不能解答。路过，帮楼主一个小忙。下面是我曾经答过的一个帖子，保证没有错误。程序比较简单，故注释不多，请楼主自行分析。

题目:编写统计学生程序，设有十个学生成绩分别是：56 69 84 82 73 88 99 63 100 80，统计低于60分，60~69，70~79，80~89，90~99及100分的人数，并存放到S5, S6, S7, S8, S9, S10的单元中，并显示。

DATA SEGMENT
NUMBER DB 56,69,84,82,73,88,99,63,100,80
S5 DB 30H ;0-59
S6 DB 30H ;60-69
S7 DB 30H ;70-79
S8 DB 30H ;80-89
S9 DB 30H ;90-99
S10 DB 30H ;100
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
MOV DS,AX
AND BX,0000H
AND AL,00H
MOV BX,OFFSET NUMBER

mov cx,S5-NUMBER ;总人数

AGAIN:MOV AL,[BX]
CMP AL,100
JS NEXT_90 ;如果AL等于100(0110 0100),没有产生借位
INC S10
JMP STO

NEXT_90:CMP AL,90
JS NEXT_80
INC S9
JMP STO

NEXT_80:CMP AL,80
JS NEXT_70
INC S8
JMP STO

NEXT_70:CMP AL,70
JS NEXT_60
INC S7
JMP STO

NEXT_60:CMP AL,60
JS NEXT_50
INC S6
JMP STO

NEXT_50:INC S5

STO: INC BX
LOOP AGAIN

MOV CX,6H
MOV BX,OFFSET S5

DISP:
MOV DL,[BX]
INC BX
MOV AH,02
INT 21H

MOV DL,0 ;在各级人数之间显示空格
MOV AH,02
INT 21H

LOOP DISP

MOV AH,4CH
INT 21H

CODE ENDS
END START

运行结果:

1 2 1 4 1 1

这是PASCAL,做个参考吧
1var i,min,max:integer;a:array[1..1000]of integer;
begin
min:=101;max:=-1;
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
begin
if a[j] if a[j]>max then max:=a[i];
end;
writeln(max,' ',min);
end.
2
var n,i,s:longint
begin
read(n);
for i:=1 to n do s:=s+i;
writeln(s);
end.

1000分给我弄 我都会头疼~

乖乖自己做吧./或是直接找答案(那些好像是某书上的题哦)

CSDN上去找 这题好古老了 MD这年头老师都偷懒 新题都懒得出

我答好了以后你不给我也没办法!

呵呵,感觉用心做的话应该还可以做出来~~ 但一般都没什么时间去钻研这个的啦~~~
楼主专心做一下咯~~