Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/36: Рейтинг темы: голосов - 36, средняя оценка - 4.89
kovsh
0 / 0 / 0
Регистрация: 22.12.2012
Сообщений: 6
#1

Определить максимальное количество одинаковых элементов массива

25.12.2012, 13:31. Просмотров 6476. Ответов 3
Метки нет (Все метки)

Дан целочисленный массив размера N. Определить максимальное количество его одинаковых элементов.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2012, 13:31
Ответы с готовыми решениями:

Максимальное количество одинаковых элементов
Help Дан список, содержащий целые числа. Определить максимальное количество...

Определить наибольшее количество одинаковых элементов в данном массиве
Определить наибольшее количество одинаковых элементов в данном массиве.

Определить в двух массивах количество пар одинаковых соседних элементов
помогите пожалуйста)) определить в двух массивах количество пар одинаковых...

Посчитать максимальное количество повторений элементов массива
2.Для массивов из N вещественных чисел сгенерировать строку. Состоящую из...

Определить количество положительных и количество отрицательных элементов массива
Определить количество положительных и количество отрицательных эле- ментов...

3
Reprain
0 / 0 / 1
Регистрация: 07.10.2012
Сообщений: 53
25.12.2012, 13:47 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const k=5;
var n,s:array[1..k] of integer;
    i,i2,i3:integer;
begin
for i:=1 to k do
   read(n[i]);
for i:=1 to k do
   for i2:=1 to k do
      if n[i]=n[i2] then
         s[i]:=s[i]+1;
 
for i:=1 to k do
   if s[i]>i3 then
      i3:=s[i];
writeln(i3);
end.
0
ZevsNet
78 / 50 / 46
Регистрация: 30.09.2010
Сообщений: 138
25.12.2012, 13:51 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
const
N=10;
var
thearr:array[1..N]of integer;
i,j:integer;
count:integer;
maxCount:integer;
maxChois:integer;
begin
    for i:=1 to N do
        thearr[i]:=random(N);
    for i:=1 to N do
        write(thearr[i],' ');
    writeln;
    maxCount:=0;
    maxChois:=0;
    for i:=1 to N do
    begin
        count:=1;
        for j:=1 to N do
        begin
            if((thearr[i] = thearr[j])and(i<>j))then
            begin
                count:=count+1;
            end;
        end;
        if(count > maxCount)then
        begin
            maxCount:=count;
            maxChois:=thearr[i];
        end;
    end;
    writeln('число = ',maxChois,' встречается ',maxCount,' раз.');
    
end.
0
baquaqa
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
25.12.2012, 13:56 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
program _array;
 
const
 
  N=20;
  
type
 
 TArray=Array [1..N] of integer;
 
var
 
 
  Mas:TArray;
  count,i:integer;
  
  
  
Procedure fillArray(var aMas:TArray;Maxval:integer);
 var
  i:integer;
begin
 for i:=1 to N           do begin
                            aMas[i]:=random(Maxval);
                            write(aMas[i],' ');
                            end;
end;
 
function FindMatch(var aMas:Tarray;index:integer):integer;
 var
  i,count:integer;
begin
 count:=0;
 for i:=1 to N do
 if mas[i]=mas[index] then inc(count);
 FindMatch:=count;
end;
 
Begin
{ fill array }
 Writeln('Сформирован массив: ');
 randomize;
 FillArray(Mas,100);
 
{ process. & output  }
 count:=0;
 for i:=1 to N do
 if findmatch(mas,i)>count 
 then count:=findmatch(mas,i);
 writeln();
 Writeln('максимальное количество одинаковых элементов: ',count);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2012, 13:56

Определить количество положительных и количество отрицательных элементов массива
определить количество положительных и количество отрицательных элементов массива

Определить количество элементов массива, значения которых больше СУММЫ соседних элементов
Дан одномерный массив из 15 элементов. Определить количество элементов,...

Определить количество элементов массива
Дан числовой массив А, состоящий из n-натуральных чисел. Определить количество...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru