Var n,n1,n2,n3,n4:real;
Begin
Write(Введите оценки: ); readln(n,n1,n2,n3,n4);
n:=(n+n1+n2+n3+n4)/5;
Writeln(Средний балл: ,n);
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.