ЗАДАЧА В ПАСКАЛЕ МОЛЮ ЧТО ПИСАТЬ НАДО АА ПОМОГИТЕ Создать программу для определе
ЗАДАЧА В ПАСКАЛЕ МОЛЮ ЧТО ПИСАТЬ НАДО АА ПОМОГИТЕ
Создать программу для определения средней отметки группы учащихся n человек. Каждый ученик получил k отметок.
Пожалуйста!
Гость
Ответ(ы) на вопрос:
Гость //PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var a,n,k,i,j,s:integer;
begin
writeln('Количество учеников и количество оценок');
readln(n,k);
for i:=1 to n do begin
for j:=1 to k do begin
write('Ученик № ',i, ' оценка № ',j,' = ');
readln(a);
s:=s+a;
end;
end;
println('Средняя оценка группы ',s/(n*k):6:3);
end.
Тестовое решение:
Количество учеников и количество оценок
3 3
Ученик № 1 оценка № 1 = 3
Ученик № 1 оценка № 2 = 4
Ученик № 1 оценка № 3 = 4
Ученик № 2 оценка № 1 = 5
Ученик № 2 оценка № 2 = 4
Ученик № 2 оценка № 3 = 4
Ученик № 3 оценка № 1 = 4
Ученик № 3 оценка № 2 = 3
Ученик № 3 оценка № 3 = 3
Средняя оценка группы 3.778
Не нашли ответ?
Похожие вопросы