В двухмерном массиве в строках хранится информация об оценках

каждого из 20 учеников класса по тому или иному предмету (в первой строке -

информация об оценках первого ученика, во второй - второго и т. д.). Общее число

предметов равно 10. Определить среднюю оценку по классу в целом.

помогите составить программку: 3

Program Task;

Const pupils = 20; subjects = 10;

Var marks: Array[1 ... pupils, 1 ... subjects] of Integer;

marks_average: Array[1 ... pupils] of Real;

i, j: Integer;

all_marks_average: Real;

Begin For i : = 1 To pupils Do

Begin

WriteLn ('Введите через пробел оценки ученика №', i) ;

For j : = 1 To subjects Do

Read (marks[i, j]) ;

End;

For i : = 1 To pupils Do

Begin

For j : = 1 To subjects Do

marks_average[i] : = marks_average[i] + marks[i, j];

marks_average[i] : = marks_average[i] / subjects;

End; For i : = 1 To pupils Do

all_marks_average : = all_marks_average + marks_average[i];

all_marks_average : = all_marks_average / pupils;

WriteLn ('Результат: ', all_marks_average:2:2) ;

ReadLn;

End.