Pascal编程题:某小班,10个学生,输入十个学生的成绩,求及格的人数及及格...

发布网友

我来回答

共2个回答

热心网友

某小班,10个学生,输入十个学生的成绩,求及格的人数及及格同学的平均分
var i,k,j,t:longint;
begin
for i:=1 to 10 do begin
read(k);
if k>=60 then begin
inc(j);
t:=t+k;
end;
end;
writeln(j);
writeln(t/j:0:0);
end.
数组整体后移一位
var a:array[1..130]of longint;
t,i,k,n,j:longint;
begin
n:=1;
while not eof do
begin
read(a[n]);
inc(n);
end;
for i:=1 to n-1 do
begin
t:=a[i];
a[i+n-1]:=t;
for j:=i+1 to i+n-1 do
write(a[j],' ');
writeln;
end;
end.

热心网友

var n,i,j,t:integer
a:array[1..30]of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
begin
t:=a[1];
for j:=1 to n-1 do
a[j]:=a[j+1];
a[n]:=t;
for j:=1 to n do write(a[i],' ');
writeln;
end;
end.