Дан массив [1..n] и число m. Найдите количество элементов больше числа l

Question

Дан массив [1..n] и число m. Найдите количество элементов больше числа l

Comments

Число l вводится?

---

А понял, больше числа m?

Answer 1

Var
  m,n,k,i:integer;
  a:array[1..1000] of integer;
begin
 write('Write size array: '); readln(n);
 write('Write m: '); readln(m);
 k:=0;
 for i:=1 to n do
  begin
   read(a[i]);
   if a[i]>m
    then inc(k);
  end;
 writeln(k);
 readln;
 readln
end.