Массивы, среднее арифетическое Опции

[Kaliban]

Народ, помогите плиз, из полного бреда сделать рабочую прогу

В массивах R1..R8, T1..T6 найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов (среди обоих массивов).
Заменить последние элементы в массивах на максимальное среднее арифметическое.

использовать процедуру нада еще

 1.rar ( 523 байт ) Кол-во скачиваний: 483


Сообщение отредактировано: Kaliban - 26.06.2007 17:58

[volvo]

Это, вообще говоря, не единственная ошибка:

	for i:=Low(ar) to High(ar) do if Positive(ar[i]) then sum:=sum+ar[i];
	sr:=sum/(High(ar) - Low(ar)+1); // <--- Вот тут меня интересует ...

... с каких пор, чтобы найти среднее арифметическое всех положительных, надо найти сумму только положительных, и разделить ее на общее число элементов?

(про использование того, что в комментариях - я вообще молчу: по окончании цикла For в его управляющей переменной может быть что угодно, Борланд крайне НЕ рекомендует после такого цикла обращаться к его счетчику)

[compiler]

... с каких пор, чтобы найти среднее арифметическое всех положительных, надо найти сумму только положительных, и разделить ее на общее число элементов?

тогда пишем

	a:integer; ... a:=0;
	//можна и типизированной константой, но я их не люблю :) 
	...for i:=Low(ar) to High(ar) do if Positive(ar[i]) then begin sum:=sum+ar[i]; inc(a)end;
	sr:=sum/a;

(про использование того, что в комментариях - я вообще молчу: по окончании цикла For в его управляющей переменной может быть что угодно, Борланд крайне НЕ рекомендует после такого цикла обращаться к его счетчику)

поэтому оно и в комментариях :) , имхо, так легче разбиратся в программе. а потом лично у меня оптимизатор ничего такого не творил не разу...

насчет нуля -- >= , меняем на >

теперь из моего бреда делают рабочую прогу :)

Сообщение отредактировано: compiler - 30.06.2007 21:57