pascal的一个问题～大侠帮忙

来源：百度知道 编辑：UC知道 时间：2024/09/26 04:24:39
学生记录由学号、姓名、成绩组成（学号、成绩都为整数），将下列学生数据中不及格的学生信息显示出来。（学生数据可以直接在程序中定义，或者从键盘录入。程序必须有记录类型）
1 Li 52
2 wang 95
3 zhao 43
4 liu 85
5 chen 94
6 yang 51

PROGRAM s;
CONST
n=6;
TYPE
stud=PECORD
num:integer;
name:sting[15];
score:integer;
END;
stude=ARRAY [1..n] OF stud;
VAR
stud:stude;
t:stud;
i,j:integer;
BEGIN
writeln('inpot name,num,score);
WITH stud[i] Do
FOR i:=1 TO n-1 DO
FOR j:=i+1 TO n DO
IF stud[i].score<stud[j].score
THEN BEGIN
t:=stud[i];
stud[i]:=stud[j];
stud[j]:=t;
END;
IF stud[i].score<60
THEN writeln(stud[i]);
writeln('num=':8,'name':10,'score':8);
END.

多简单。。

program asdk;
type x=record
xuehao:integer;
xingming:string;
chengji:integer;
end;
var a:array[1..6]of x;
k,i:integer;
begin
for i:=1 to 6 do
w