Помогите с задачкой по массиву

[Stiff]

Дан вектор. определить количество элементов массива, которые меньше некоторого числа M. число M вводиться пользователем.

Начало я написал, а основную часть не знаю как.

[alex_fcsm]

Покажи что написал

[Stiff]

program 1;
uses crt;
var a:array [1..10] of integer;
i,M:integer;
 begin
 randomize;
 for i:=1 to 10 do
  begin
  a [i]:=random(100);
  write (a[i],' ');
  end; readln;
 writeln ('введите M'); readln;

[Sazary]

теперь вводите M.
Объявите переменную-счетчик (например, cnt) целого типа

cnt := 0;
for i:=1 to 10 do
 if(a[i]<M) inc(cnt);

И правильно

 randomize;

[Stiff]

Можно по подробнее

[Sazary]

Куда уж подробнее? Вы сказали, что не можете написать основную часть. Вот она. Осталось написать вывод.
Если вы сами написали начало, то сможете и закончить.