0 / 0 / 2
Регистрация: 20.10.2013
Сообщений: 15
1

определить значение которое встречается среди элементов массива наибольшее число раз и выслить количество такитх вхождений

20.10.2013, 04:27. Показов 869. Ответов 0
Метки нет (Все метки)

Не программировала на Pascal'e уже лет семь и забыла как вот такое сделать. Начала и села...
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
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,p,mx:byte;
    mn,u:integer;
begin
clrscr;
u:=0;
randomize;
repeat
write('Ðàçìåð ìàññèâà äî ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Ìàññèâ:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
 end;
writeln;
writeln;
mx:=1;
mn:=a[1];
i:=1;
while i<=n do
 begin
  j:=i+1;k:=1;
  while j<=n do
   begin
    if a[j]=a[i] then
     begin
      k:=k+1;  u:=1+u;
      for p:=j to n-1 do
      a[p]:=a[p+1];
      n:=n-1;
     end
    else j:=j+1;
   end;
  if k>mx then
   begin
    mx:=k;
    mn:=a[i];
   end
  else if k=mx then
   if a[i]<mn then mn:=a[i];
  i:=i+1;
 end;   u:=u+k;
write('Ìèíèìàëüíîå èç ñàìûõ ÷àñòûõ=',mn,' âñòðå÷åíî ',mx,' ðç.','Êîë-âî âëîæåíèé ',k,'      ',u);
readln
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2013, 04:27
Ответы с готовыми решениями:

Найти число, которое встречается в последовательности наибольшее количество раз
Задана последовательность, содержащая n целых чисел. Необходимо найти число, которое встречается в...

Определить, сколько раз встречается число 7 среди элементов массива
11. Дан массив из n элементов. Определить, сколько раз встречается число 7 среди элементов массива.

Определить сколько раз встречается число среди элементов массива
Дан двухмерный массив N x M элементов. Определить сколько раз встречается число 7 среди элементов...

Определить сколько раз встречается число среди элементов двухмерного массива
Задание: при написании программы используйте TextBox, Button, Label, CheckBox, ListBox, также нужно...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2013, 04:27
Помогаю со студенческими работами здесь

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

массив. Определить сколько раз встречается число 7 среди элементов массива
1) его массив из n элементов. Определить, сколько раз встречается число 7 среди элементов массива....

Дан массив из n элементов. Определить, сколько раз встречается число 5 среди элементов массива.
Здравствуйте. Помогите, пожалуйста, решить задачу. Дан массив из n элементов. Определить, сколько...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru