求平均成绩 如何解答的呢

Question

Problem Description
假设一个班有n(n<=50)个学生，每人考m(m<=5)门课，求每个学生的平均成绩和每门课的平均成绩，并输出各科成绩均大于等于平均成绩的学生数量。

Input
输入数据有多个测试实例，每个测试实例的第一行包括两个整数n和m，分别表示学生数和课程数。然后是n行数据，每行包括m个整数（即：考试分数）。

Output
对于每个测试实例，输出3行数据，第一行包含n个数据，表示n个学生的平均成绩，结果保留两位小数；第二行包含m个数据，表示m门课的平均成绩，结果保留两位小数；第三行是一个整数，表示该班级中各科成绩均大于等于平均成绩的学生数量。
每个测试实例后面跟一个空行。

Sample Input
2 2
5 10
10 20

Sample Output
7.50 15.00
7.50 15.00
1

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

# 读取输入数据
input_data <- readLines()

# 初始化变量
num_students <- as.integer(gsub("[^0-9]", "", input_data[1]))
num_courses <- as.integer(input_data[2])
scores <- matrix(NA, nrow=num_students, ncol=num_courses)

# 处理每一行数据
for (i in 3:input_data[2] + 3) {
  scores[i - 3, ] <- as.numeric(gsub("[^0-9]", "", input_data[i]))
}

# 计算平均成绩
average_scores <- apply(scores, 1, mean)
average_scores_rounded <- round(average_scores, 2)

# 输出结果
output_data <- c()
output_data[[1]] <- average_scores_rounded
output_data[[2]] <- round(apply(scores, 1, mean), 2)
output_data[[3]] <- sum(scores[, colSums(scores > average_scores) == num_courses])

cat(output_data)

这段代码将读取输入数据，计算每个学生的平均成绩和每门课的平均成绩，并输出结果。