Наверно уже надоел.Извините, просто сессия скоро а в группе всего несколько человек умеют решать задачи.Вот я сижу и за пол группы решаю.Помогите вот с такой задачей:
В двумерном массиве хранится информация об оценках каждого из 20 учеников класса по тому или иному предмету.Общее число предметов равно 10.Определить среднюю оценку пятого ученика
Автор: APAL 2.06.2006 20:25
Код
sr:=m[5,1]; For i:=2 to 10 do sr:=(sr+m[5,i])/2;
Автор: Bokul 3.06.2006 6:55
sr:=m[5,1]; For i:=2 to 10 do sr:=(sr+m[5,i])/2;
Это не правильное решения... Например для таких чисел
Код
1 0 3 4
среднее арифметическое = 2, но результатом вашего алгоритма будет 2,875... Правильно будет считать суму чисел и потом делить ее на 10.
Автор: APAL 4.06.2006 3:01
Да, действительно... извиняюсь.
Тогда так (это я проверял):
Код
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.
Автор: мисс_граффити 4.06.2006 15:26
пятого - который пятый по списку? или типа первый - это который лучше всех учится, второй чуть похуже...
Автор: Malice 4.06.2006 16:55
Цитата(APAL @ 3.06.2006 23:01)
Да, действительно... извиняюсь. Тогда так (это я проверял):
Не переживай, все равно не правильно- если предметов 10, то и делить надо на 10, а не на столько, сколько заполнил.
Автор: APAL 5.06.2006 1:23
Цитата(Malice @ 4.06.2006 12:55)
Не переживай, все равно не правильно- если предметов 10, то и делить надо на 10, а не на столько, сколько заполнил.
Так это и так понятно!
Тестовых чисел (потом уже) дали четыре - хочет больше - пусть внесет соответсвующее изменение.