Двумерный массив Опции

[Sonni]

Наверно уже надоел.Извините, просто сессия скоро а в группе всего несколько человек умеют решать задачи.Вот я сижу и за пол группы решаю.Помогите вот с такой задачей:

В двумерном массиве хранится информация об оценках каждого из 20 учеников класса по тому или иному предмету.Общее число предметов равно 10.Определить среднюю оценку пятого ученика

[APAL]

Да, действительно... извиняюсь.

Тогда так (это я проверял):

Код

Var
  i  : Byte;
  Sr : Real;
  m  : array [1..20,1..10] of Byte;

Begin
  m[5,1]:=1;
  m[5,2]:=0;
  m[5,3]:=3;
  m[5,4]:=4;

  sr:=0;
  For i:=1 to 4 do
    sr:=sr+(m[5,i]/4);
  Writeln(sr:8:4);
End.