Определите средний балл всех учащихся по каждому предмету.Формат входных данных Заданы...

Question

Определите средний балл всех учащихся по каждому предмету.
Формат входных данных Заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа (оценки по трем предметам: математике, физике, информатике). Данные в строке разделены одним пробелом. Оценки принимают значение от 1 до 5.
Формат выходных данных Выведите три действительных числа: средний балл всех учащихся по математике, по физике, по информатике.Пример
Ввод Вывод
4 4.75 3.75 4.5
Ivanov Vasiliy 5 3 4
Petrov Sergey 4 3 5
Konstantinov Nikolay 5 5 5
Kuznetsov Ivan 5 4 4

Задачу написать на паскале

Answer 1

Var
n,i, j, a, b, d:integer;
a1, b1, d1:real;
c:char;
begin
read (n);
for i:=1 to n do begin
for j:=1 to 2 do
while c<>' ' do read (c);
read (a); a1:=a1+a;
read (b); b1:=b1+b;
read (d); d1:=d1+d;
end;
write (a1/n, ' ', b1/n, ' ', d1/n);
end.
где а1 - сумма оценок по первому предмету, в1 - по второму и т.д.

Comments

за что нарушение? программа правильная