Cho dãy số nguyên a gồm n phần tử và khoá k Tìm xem có bao nhiêu phần tử bé hơn k Cần gấp ạ please

0 bình luận về “Cho dãy số nguyên a gồm n phần tử và khoá k Tìm xem có bao nhiêu phần tử bé hơn k Cần gấp ạ please”

1. uses crt;
   var n,i,k,d:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘k=’);readln(k);
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            if a[i]<k then inc(d);
         end;
      writeln(‘Co ‘,d,’ phan tu’);
   readln
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,k,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           Write(‘Nhap k: ‘); Readln(k);
           d:=0;
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i]<k then inc(d);
           End;
           Write(‘Co ‘,d,’ phan tu be hon ‘,k);
           Readln
   End.

   Bình luận