渣渣小白学R（每日一题）--成绩统计

输入一个数n(n为奇数)表示有n个学生，然后后面n行输入这n个学生的学号，成绩。输出n个学生的分数的中位数，以及中位数对应学生的学号。

例如，输入:
7
101 72
102 85
103 99
104 68
105 77
106 86
107 66

输出:
77
105

rm(list=ls())
n=as.numeric(readline('请输入学生个数：'))
print(paste('输入这',n,'个学生的学号和成绩',sep=''))

studentId=array()
for(i in 1:n)
{
  a=as.numeric(readline('输入学生的学号：'))
  studentId[i]=a
}

studentGrade=array()
for(i in 1:n)
{
  a=as.numeric(readline('输入学生对应的成绩：'))
  studentGrade[i]=a
} 

grademedian=median(studentGrade)
for(i in 1:n)
{
  if(studentGrade[i]==grademedian)
  num=i
}

print(studentId[num])