1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| BOT | 
                        
			
			  
			
				 Сообщение
					#1				
			 
		 | 
	
| 
        	
        		 Гость  | 
       
			
			 здравствуйте уважаемые. 
			
			
					
		помогите найти среднее арифметическое нечетных одномерного массива.  | 
	
![]() ![]()  | 
	
| volvo | 
                        
			
			  
			
				 Сообщение
					#2				
			 
		 | 
	
| 
        	
        		 Гость  | 
       
			
			 Правда? А голова тебе зачем? ЦЕЛЫМ делать среднее арифметическое? 
			
			
					
		 | 
	
 BOT   нахождение нечетных номеров массива   3.12.2005 22:57
 
 BOT   поправка, 
нечетных элементов массива   3.12.2005 22:59
 
 volvo   s := 0; k := 0;
for i := 1 to n do
  if a[i] mod 2…   3.12.2005 23:01
 
 BOT   :blink: извини, а что у тебя "k"?
разме…   3.12.2005 23:30
 
 volvo   Размерность массива = N
К это число найденных нече…   3.12.2005 23:33
 
 BOT   почему то у меня на k выдает ошбику, когда делим s…   3.12.2005 23:46
 
 volvo   При делении не будет Integer... S опиши как Real .…   3.12.2005 23:47
 
 Дож   BOT
Напиши:  s:=round(s/k)   3.12.2005 23:48
 
 volvo   Дож,
ты уверен, что получить при <1, 3, 3> о…   3.12.2005 23:52
 
 Дож   
В поставленной задаче ни слова о точности результ…   3.12.2005 23:55
 
 BOT   uses crt;
var
 M: array [1..100] of in…   4.12.2005 0:02
 
 Дож   Bot
ЗАЧЕМ ты объявил переменную s как real а потом…   4.12.2005 0:05
 
 BOT   убрал round, все равно s=0   4.12.2005 0:07
 
 volvo   Потому что
if k <> 0 then
  s := s / k; { НЕ…   4.12.2005 0:07
 
 BOT   ввожу любое число, например 5, заполняется массив …   4.12.2005 0:10
 
 Дож   
Ага...  :yes2:   4.12.2005 0:11
 
 volvo   У тебя генерируются отрицательные числа... С ними …   4.12.2005 0:11
 
 BOT   СПАСИБО! +)   4.12.2005 0:16![]() ![]()  | 
	
 
  | 
		Текстовая версия | 4.11.2025 22:56 |