Nhập vào mảng A gồm n phần tử. Tìm phần tử xuất hiện nhiều nhất trong mảng

0 bình luận về “Nhập vào mảng A gồm n phần tử. Tìm phần tử xuất hiện nhiều nhất trong mảng”

1. Bài này là phân tử đầu tiên nếu có nhiều phần tử có số lần xuất hiện là max nha

   program xuahien;

   uses crt;

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

         n,i,max,d,ptu:integer;

   begin

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

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);

   for i:=1 to n do

    begin

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

     readln(A[i]);

    end;

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

   for i:=1 to n-1 do

    begin

     d:=1;

     for j:=i+1 to n do

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

     if d>max then

      begin

        max:=d;

        ptu:=A[i];

      end;

    end;

   writeln(‘Day vua nhap la:’);

   for i:=1 to n do

    write(A[i]:4);

   writeln;

   write(‘Phan tu co so lan xuat hien nhieu nhat la: ‘,ptu);

   readln

   end.

   Bình luận