Question

Nhập mảng một chiều gồm n số nguyên và số nguyên k, kiểm tra có bao nhiêu phần tử lớn hơn k?

Answer 1

Answer 2

uses crt;

var n,k,i,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

readln(n,k);

for i:=1 to n do 

readln(a[i]);

dem:=0;

for i:=1 to n do 

  if a[i]>k then dem:=dem+1;

writeln(dem);

readln;

end.