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

[Sonni]

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

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

[APAL]

Код

sr:=m[5,1];
For i:=2 to 10 do sr:=(sr+m[5,i])/2;

[Bokul]

sr:=m[5,1];
For i:=2 to 10 do sr:=(sr+m[5,i])/2;

Это не правильное решения...
Например для таких чисел

Код

1 0 3 4

среднее арифметическое = 2, но результатом вашего алгоритма будет 2,875...
Правильно будет считать суму чисел и потом делить ее на 10.

Сообщение отредактировано: volvo - 4.11.2006 0:39

[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.

[мисс_граффити]

пятого - который пятый по списку?
или типа первый - это который лучше всех учится, второй чуть похуже...

[Malice]

Да, действительно... извиняюсь.
Тогда так (это я проверял):

Не переживай, все равно не правильно- если предметов 10, то и делить надо на 10, а не на столько, сколько заполнил.

[APAL]

Не переживай, все равно не правильно- если предметов 10, то и делить надо на 10, а не на столько, сколько заполнил.

Так это и так понятно!

Тестовых чисел (потом уже) дали четыре - хочет больше - пусть внесет соответсвующее изменение.