//---------------------------------------------------------------------------

#pragma hdrstop
#include <iostream>
#include <tchar.h>
//---------------------------------------------------------------------------
using namespace std;
#pragma argsused
int _tmain(int argc, _TCHAR* argv[])
{

    cout << "Input n" << endl;

    unsigned int n;

    cin >> n;

    int * arr = new int [n];

    for(unsigned int ii = 0;ii < n;ii++)

    {

        cin >> arr[ii]; // только для проверки, после - убрать,ввод с клавиатуры

        //arr[ii] = rand()%1000; // раcкомментировать после проверки,рандом

        cout << "a[" << ii << "]=" << arr[ii] << endl;

    }

    unsigned int * count = new unsigned int [n];

    for(unsigned int ii = 0;ii < n;ii++)

        count[ii] = 0;

    for(unsigned int ii = 0;ii < n;ii++)

        for(unsigned int j = 0;j < n;j++)

            if(arr[ii] == arr[j])

                count[ii]++;

    unsigned int max = 0;

    for(unsigned int ii = 0;ii < n;ii++)

        if(count[max] < count[ii])

            max = ii;

    cout << "Result=" << arr[max] << endl;

    char c;

    cin >> c;

    return 0;
}
//---------------------------------------------------------------------------

Свернуть исходник

Код:

program xlx;

var

a : array[1..1000] of integer;

ii,j,n,max : integer;

count : array[1..1000] of integer;

begin

  randomize;

  writeln('Input n');

  readln(n);

  for ii := 1 to n do

  begin

    write('a[',ii,']=');

    //a := random(1000); writeln(a); // раскомментировать после проверки,рандом

    readln(a[ii]); // только для проверки, после - убрать,ввод с клавиатуры

  end;

  for ii := 1 to n do

    count[ii] := 0;

  for ii := 1 to n do

    for j := 1 to n do

      if a[ii]=a[j] then inc(count[ii]);

  max := 1;

  for ii := 1 to n do

    if count[max]<count[ii] then max := ii;

  writeln('Result=',a[max]);

  readln;

  readln;
end.

Еще на каком-нибудь языке,или угадал?)

Цитировать

Ваш аккаунт

Последние темы форума

Почтовая рассылка

найти абсолютное значение массива,которое встречается чаще остальных

1 ответ