Question

     Задан одномерный массив из n элементов.Определить,
сколько элементов массива меньше, чем число 6. 

Answer 1

Вот этот кусочек будет считать сколько элементов в массиве меньше 6.   

x := 0;
  for i := 1 to n do
     begin
     if m[i] < 6 then
     inc(k);
     end;
  writeln(k);