В одномерном массиве из N элементов найти максимальный Max элемент. Определить количество элементов, меньших по абсолютному значению Max/3.

Beseech, что означают циферки в названиях тем?

Боюсь, тебе придется

!

перименовать ВСЕ свои темы поконкретнее.

Иначе - закрою, даже не сомневайся.. И скоро.

k:=0;
for i:=1 to n do
if a[i]<(max/3) then inc(k);

PS ТЫ ХОТЬ ЧТО НИТЬ САМ ПЫТАСЯ СДЕЛАТь?

Beseech, я скрыл ответы в твои темы.

!

Если не отреагируешь на мои предупреждения - закрою совсем.

Даю полчаса.

Такие темы пойдут?)

жестко