Tạo ngẫu nhiên mảng gồm n số nguyên (n<50) nhập vào số nguyên k ,đếm và in ra những số lớn hơn k trong mảng

0 bình luận về “Tạo ngẫu nhiên mảng gồm n số nguyên (n<50) nhập vào số nguyên k ,đếm và in ra những số lớn hơn k trong mảng”

1. uses crt;
   var k:integer;
       a:array[1..49] of integer;
       n,i,dem:byte;
   BEGIN
           clrscr;
           write(‘Nhap n:’); readln(n);
           write(‘Nhap k:’); readln(k);
           randomize;
           dem:=0;
           for i:=1 to n do
           begin
                   a[i]:=random(65534)-32766;
                   write(a[i],’ ‘);
                   if a[i]>k then inc(dem);
           end;
           writeln;
           write(‘Co ‘,dem,’ so lon hon ‘,k);
           readln
   END.

   Chúc bạn học tốt!

   Bình luận

2. program ngaunhien;

   uses crt;

   var A:array[1..50] of integer;

         n,i,d,k:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu cua mang: ‘);    readln(n);

   randomize;

   for i:=1 to n do

     A[i]:=random(65534)-32766;

   writeln(‘Mang vua tao la: ‘);

   for i:=1 to n do

     write(A[i],’ ‘);

   writeln;

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

   d:=0;

   for i:=1 to n do

    if A[i]>k then d:=d+1;

   if d=0 then write(‘Khong co phan tu nao trong mang lon hon ‘,k)

   else

     begin

       write(‘Co ‘,d,’ phan tu trong mang lon hon ‘,k)

       write(‘Cac so lon hon ‘,k,’ trong mang la: ‘);

       for i:=1 to n do

           if A[i]>k then write(A[i],’ ‘);

    end;

   readln

   end.

   Bình luận