Viết chương trình nhập mảng n phần tử kiểu nguyên và cho ra màn hình xuất hiện nhiều nhất và số lần xuất hiện

0 bình luận về “Viết chương trình nhập mảng n phần tử kiểu nguyên và cho ra màn hình xuất hiện nhiều nhất và số lần xuất hiện”

1. program xuathien;

   uses crt;

   var max,d,i,j,n,pt:integer;

          A:array[1..100] of integer;

   begin

   clrscr;

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

   writeln(‘NHAP TUNG PHAN TU CUA MANG’);

   for i:=1 to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

    end;

   max:=1;  pt:=A[1];

   for i:=1 to n do

    begin

     d:=0;

     for j:=i to n do

      if A[j]=A[i] then inc(d);

     if d>max then

       begin

         max:=d;

         pt:=A[i];

       end;

    end;

   write(pt,’ co so lan xuat hien ‘,max,’ la nhieu nhat’);

   readln

   end.

   Bình luận

2. uses crt;
   var n,d,j,m,vt,i:longint;  a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            d:=0;
            for j:=1 to i do if a[i]=a[j] then inc(d);
            if d>m then begin m:=d; vt:=i; end;
         end;
      writeln(a[vt],’ ‘,m);
   readln
   end.

   Bình luận