Question

VIẾT chương trình nhập vào 1 dãy số nguyên,nhập vào 1 số nguyên a bất kỳ xuất ra các số trong dãy số lớn hơn số a vừa nhập

Answer 1

program TimSoLonHonA;

var

     a: array of integer;

     n, i, x: integer;

begin

     write('Nhap so phan tu cua day so: ');

     readln(n);

     SetLength(a, n);

     for i := 0 to n - 1 do

     begin

          write('Nhap gia tri phan tu thu ', i + 1, ': ');

          readln(a[i]);

     end;

     write('Nhap vao mot so nguyen bat ky: ');

     readln(x);

     writeln('Cac so lon hon ', x, ' la: ');

     for i := 0 to n - 1 do

     begin

          if (a[i] > x) then

               writeln(a[i]);

     end;

end.