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