Решение задач с массивами в Pascal ABC

[Стас11]

Здравствуйте форумчане. Задали мне решить две простые задачи с массивами, но дело в том что подобных задач я не решал, и не могу решить, я попросту не знаю нужных команд, например определение кол-ва элементов и нахождение среднего значения массива. Прошу помочь с решением. Задачи на фото. Заранее спасибо. WP_20130524_009.jpg

[rubius2008]

1. Подсчитать среднее можно так

...
sr:=0; for i:=1 to n do sr:=sr+b[i];
sr:=s/n;
...

2.подсчет количества и произведение

c:=0; p:=1; for i:=1 to n do if b[i]<sr then begin c:=c+1; p:=p*b[i]; end;