// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Введите построчно оценки шести учеников');
Writeln('Порядок ввода оценок: физика, математика, русский');
var d:=ReadMatrInteger(6,3);
Writeln('Средние баллы по предметам');
Writeln('Физика ',d.Col(0).Average:0:2,
', математика ',d.Col(1).Average:0:2,
', русский ',d.Col(2).Average:0:2)
end.
Пример
Введите построчно оценки шести учеников
Порядок ввода оценок: физика, математика, русский
4 5 4
3 4 4
5 4 5
3 3 4
5 5 5
4 4 3
Средние баллы по предметам
Физика 4.00, математика 4.17, русский 4.17