Lập trình vào một mảng gồm n phần tử (n<25) mỗi phần tử là một số nguyên nhỏ hơn 100. Đếm xem có baonh phần tử

21/08/2021 Bởi Ximena

0 bình luận về “Lập trình vào một mảng gồm n phần tử (n<25) mỗi phần tử là một số nguyên nhỏ hơn 100. Đếm xem có baonh phần tử <k, =k (với k là một số nguyên dương ch”

1. Program BTT;
   Uses crt;
   Var A: array[1..24] of longint;
       n,d,s,i,k: longint;
   Begin
           Clrscr;
           Write(‘Nhap n,k: ‘); Readln(n,k);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i]<k then inc(d);
                   If A[i]=k then inc(s);
           End;
           Writeln(‘<k: ‘,d);
           Write(‘=k: ‘,s);
           Readln
   End.

   Bình luận

2. var n,i,k,x,y:byte;

       a: array [1..25] of byte;

   begin

   write(‘Nhap n: ‘); readln(n);

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

   for i:=1 to n do

   begin

   write(‘Nhap phan tu thu ‘,i,’ : ‘); read(a[i]);

   if a[i]<k then inc(x);

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

   end;

   writeln;

   writeln(‘So phan tu <k la: ‘,x);

   write(‘So phan tu =k la: ‘,y);

   readln;

   end.

   Bình luận