Tạo ngẫu nhiên mảng gồm n số nguyên (n<50) nhập vào số nguyên k ,đếm và in ra những số lớn hơn k trong mảng

uses crt;
var k:integer;
    a:array[1..49] of integer;
    n,i,dem:byte;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        write('Nhap k:'); readln(k);
        randomize;
        dem:=0;
        for i:=1 to n do
        begin
                a[i]:=random(65534)-32766;
                write(a[i],' ');
                if a[i]>k then inc(dem);
        end;
        writeln;
        write('Co ',dem,' so lon hon ',k);
        readln
END.

Chúc bạn học tốt!

program ngaunhien;

uses crt;

var A:array[1..50] of integer;

      n,i,d,k:integer;

begin

clrscr;

write('Nhap so luong phan tu cua mang: ');    readln(n);

randomize;

for i:=1 to n do

  A[i]:=random(65534)-32766;

writeln('Mang vua tao la: ');

for i:=1 to n do

  write(A[i],' ');

writeln;

write('Nhap k: ');     readln(k);

d:=0;

for i:=1 to n do

 if A[i]>k then d:=d+1;

if d=0 then write('Khong co phan tu nao trong mang lon hon ',k)

else

  begin

    write('Co ',d,' phan tu trong mang lon hon ',k)

    write('Cac so lon hon ',k,' trong mang la: ');

    for i:=1 to n do

        if A[i]>k then write(A[i],' ');

 end;

readln

end.