Question

viết chuong trinh nhap 1 dãy n so nguyen và số nguyên x. đếm và in ra màn hình các số lớn hơn x trong dãy số đó

Answer 1

Var array:[1..1000] of integer;

i,n,x:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('x = ');readln(x);

Write('Cac so lon hon ',x,' la ');

For i:=1 to n do

If a[i] > x then write(a[i]:8);

Readln

End.