Определите средний всех учащихся по каждому предмету. формат входных данных заданы сначала количество учащихся 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 написать на паскале

Maybejuliar1337 Maybejuliar1337    1   28.05.2019 17:40    10

Ответы
pourkur1111oz10kt pourkur1111oz10kt  26.06.2020 11:17
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 - по второму и т.д.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика