Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 33, средняя оценка - 4.76
kovsh
0 / 0 / 0
Регистрация: 22.12.2012
Сообщений: 6
#1

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

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

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

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

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

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

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

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

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

3
Reprain
0 / 0 / 0
Регистрация: 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 / 9
Регистрация: 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 / 21
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Определить количество различных элементов массива - Pascal
VAR K:INTEGER; C:ARRAY OF CHAR; Определить К- количество различных элементов массива С (т.е....

Определить количество нулевых элементов массива - Pascal
Дан массив из N вещественных чисел. Определить количество нулевых элементов. Если таких значений нет, выдать соответствующее сообщение.

Определить К- количество различных элементов массива - Pascal
VAR K:INTEGER; C:ARRAY OF CHAR; Определить К- количество различных элементов массива С (т.е. повторяющиеся элементы считать один раз).


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

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

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