Есть m предметов и n учеников, вывести среднюю оценку каждого
10-11 класс
|
var
n,m,i,j,p:integer;
s:real;
begin
Write('Введите через пробел число учеников и число предметов: ');
Readln(n,m);
for i:=1 to n do begin
Writeln('Введите через пробел оценки ученика ',i);
s:=0;
for j:=1 to m do begin
Read(p);
s:=s+p
end;
s:=s/m;
Writeln('Средний балл равен ',s:1:2)
end
end.
Тестовое решение:
Введите через пробел число учеников и число предметов: 3 5
Введите через пробел оценки ученика 1
4 4 3 5 5
Средний балл равен 4.20
Введите через пробел оценки ученика 2
3 3 3 5 4
Средний балл равен 3.60
Введите через пробел оценки ученика 3
5 5 5 5 4
Средний балл равен 4.80
И? Вводите для каждого ученика m оценок, складывайте их, делите сумму на m и выводите результат. Повторяйте это n раз.
Другие вопросы из категории
712,25(10); г) 670,25(10); д)11,89(10)
Читайте также
элементов массива, соответствующих этим ученика.
2-должны выводиться данные 20 учеников (название группы; порядковый номер ученика; имя; фамилия; год рождения; 5 оценок по разным предметам) из файла на экран При нажатии 3-добавление одного или нескольких учеников в список по вышеперечисленным критериям При нажатии 4-Вывести на экран учеников или ученика с минимальным средним баллом При нажатии 5-Вывод списка учеников в txt документ в порядке убывания средних оценок *После каждого действия должно задавать вопрос("продолжить работать в программе или выйти?")
1) Дано четырехзначное число. Верно ли, что среди его цифр есть кратные трем
2) Даны три целых числа. Вывести среднее значение числа (средним числом назовем то, которое меньше наибольшего, но больше наименьшего числа)
3) Напишите эффективную программ, которая по двум данным натуральным числам х и у, не превосходящим 10000, подсчитывает количество натуральных чисел, заканчивающихся нулем, на отрезке [х,у] (включая концы отрезка).
высокого мальчика. Вывести средний рост мальчиков. Далее вывести имена всех мальчиков ниже среднего.
что он получил тройку несёт 3 бита информации. Сколько троек получил ученик за четверть?