读入男女时,如果是男就输入0,如果是女就输入1
program a1;
var a:array[1..10,1..5] of integer;
i,j,n,m,k:integer;
s:real;
begin
for i:=1 to 10 do
begin
for j:=1 to 5 do
read(a[i,j]);
writeln;
end;
for i:=1 to 10 do
if a[i,3]=0 then n:=n+1
else m:=m+1;
writeln('nan',n);
writeln('nv',m);
for i:=1 to 10 do
s:=s+a[i,4];
s:=s/10;
writeln(s:5:1);
for i:=1 to 10 do
if a[i,4] writeln;
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024