Работа с массивами (pascal)

[Bykvaeshka]

Добрый день( а может у кого-то утро, ночь или вечер) господа форумчане. Прошу у вас помощи. По информатике дали задачу на дом по массивам в Паскале, а я их вообще не понимаю
Помогите пажалуйста, буду очень признателен.
Вот собственно задача.

Найти среднее арифметическое тех элементов массива, которые меньше первого элемента .

Знаю, может эта задача для многих покажется наипростейшей, но всё же

Ах да, еще, я тут Блок схему накидал, если есть возможность-киньте свою, а то с моим талантом в информатике можно ожидать любых ошибок

[Dj_smart]

Создайте еще один массив, с такими же размерами и циклом перегружайте те елементы, которые меньше первого. Потом считайте среднее арефмитическое

const
    cnt=100; // количество элементов
var mas:array[1..cnt] of integer; // тут числа
    twhomas:array[1..cnt] of integer; // перегружаем сюды
    twocount, // количество елементов меньше первого
    n,summ,res:integer;
begin
  twocount:=0;
  for n:=2 to cnt do begin // первый не проверяем
    if mas[n]<mas[1] then begin
      inc(twocount);
      twomas[twocount]:=mas[n];
    end;
  end;
  summ:=0; // сумма = 0
  for n:=1 to twocount do inc(summ,twomas[n]); // складываем сумму
  res:=round(summ/twocount); // в этой переменной - результат

[alex_fcsm]

1. Инициализируем массив
2. Счетчик элементов меньших первого(Count) устанавливаем в 0 и накопленную сумму(sum) в 0
3. Для всех элементов начиная со 2 делать
если элемент меньше первого то
делай
count:=count+1
sum:=sum+элемент массива
конец делай
4. Если Count<>0 то Среднее_арифм:=sum/count;

[Bykvaeshka]

Спасибо большое, щас попробую