viết chương trình xác định số lần xuất hiện số nguyên K trong dãy n số nguyên nhập từ bàn phím mik cần gấp giúp mik với ạ :<

0 bình luận về “viết chương trình xác định số lần xuất hiện số nguyên K trong dãy n số nguyên nhập từ bàn phím mik cần gấp giúp mik với ạ :<”

1. var a:array[1..1000] of longint;

   n,k,d,i:longint;

   begin

   readln(n,k);d:=0;

   for i:=1 to n do read(a[i]);readln;

   for i:=1 to n do

   if a[i]=k then inc(d);

   write(d);

   readln

   end.

   Bình luận

2. Uses crt;

   Var T:array[1..100] of longint;

          i, n, k, dk: integer;

   Begin

        Clrscr;

        Write(‘Nhap n = ‘); readln(n);

        For i:=1 to n do 

           Begin

                Write(‘Nhap T[‘,i,’]: ‘);

                Readln(T[i]);

            End;

        Write(‘Nhap k: ‘); readln(k);

        dk:=0;

        FOr i:=1 to n do if T[i]=k then inc(dk);

        Writeln(k,’ xuat hien ‘,dk,’ lan’);

   Readln

   End.

   Bình luận