Но можно проще:

Найти среднее арифметическое значение нескольких (n<255) переменных типа word, не выходя за рамки
возможных значений (65535) в любом случае, можно следующим способом:

sum_1 var word 'вспомагательные переменные
sum_2 var word
average var word 'результат

sum_1 = word_1.highbyte + word_2.highbyte + word_3.highbyte + word_n.highbyte
sum_2 = word_1.lowbyte + word_2.lowbyte + word_3.lowbyte + word_n.lowbyte
average.highbyte = sum_1 / n
average.lowbyte = sum_1 // n
average = average + sum_2 / n

буду пробовать.

Выражение
Word = (Word1 + Word2)/2
Равносилно выражению
Word = Word1 / 2 + Word2 / 2

И не будет никаких переполнений

В вашем примере усредняються полубайты и код получаеться слишком грамозким и долговыполнимым. Адолгое выполнение и большая занимаемость области програмной памяти не есть гуд для реализации каких то задач.
И это понимет программист тогда, когда начинает писать серьёзные программы, а к этому все придут и начинать правильно минимизировать код и увеличивать скорость выполнение кода нужно с начала, дабы потом не затыкаться на проблемах.

Ну, Вы Alex, даете!

Конечно легче было бы: Word = (Word1 + Word2)/2

но

к несчастью, еще при сложении Word1 с Word2, может произойти переполнение, а потом что?

Добавлено (23.01.2009, 2:51:06)
---------------------------------------------

А здесь я в Вами, пожалуй, не соглашусь, Вы о потере точности, случайно, не забыли?

В вашем случае:
Выделил 2 младших полубайта (2 операции), поделил на 2 (1), выделил 2 старших полубайта (2 операции), поделил на 2 (1), сложил (1).
Использовано 7 переменных и 7 операций. И это ещё не ивестно как он будет выделять полубайты.

А Вы напишите это все на PBP, прокомпилируйте и будет Вам ответ.