Mọi người ơi giúp mình với Sinh ngẫu nhiên 50 con số nguyên trong khoảng từ 0 ->100. Đếm xem con số nào xuất hiện nhiều nhất trong dãy con số đó xuất

0 bình luận về “Mọi người ơi giúp mình với Sinh ngẫu nhiên 50 con số nguyên trong khoảng từ 0 ->100. Đếm xem con số nào xuất hiện nhiều nhất trong dãy con số đó xuất”

1. uses crt;

   var a,b: array [1..100] of longint;

         i,max,so:longint;

   begin

   randomize;

   for i:=1 to 50 do

   a[i]:=random(100);

   for i:=1 to 50 do

   inc(b[a[i]]);

   max:=0;

   for i:=1 to 100 do

   if b[i]>max then

   begin 

   max:=b[i];

   so:=i;

   end; 

   write(‘Con so may man la: ‘,so);

   readln;

   end.

   Bình luận

2. xem dung ko

   program tong;
   uses crt;
   var Max,so,i,j:integer;
       A,B:array[0..100] of integer;
   begin
    clrscr;    Max:=-10;
    randomize;
    For i:=1 to 50 do A[i]:=random(100);
    For i:=1 to 50 do
     begin
      j:=A[i];
      inc(B[j]);
     end;
    For i:=1 to 50 do write(A[i],’ ‘);
    writeln;
    For j:=1 to 50 do if B[j]>=Max  then
     begin
      Max:=B[j];
      so:=j;
     end;
    writeln(so);

    readln;
   end.

   Bình luận