массивы
27.10.2011, 19:09. Показов 328. Ответов 0
Дан массив одномерный найти максималльное число повторяющего числа и вывести его колличество
например 5 элементов в массиве
1 1 1 2 2
максимально повторяется 1 и его колличество 3
Добавлено через 2 минуты
| 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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
| program laba4;
var
n,i,j,p,o,k,z,x,m,t,qq,max,num,x1:integer;
a,b,c,d,q:array[1..100] of integer;
begin
qq:=1;
m:=0;
k:=1;
z:=1;
x:=1;
t:=1;
writeln('ââåäèòå ðàçìåðíîñòü ìàññèâà');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
for j:=1 to n do
if (i<>j) then
if a[i]=a[j] then
begin
for o:=1 to n do
begin
if a[i]<>b[o] then
begin
b[k]:=a[i];
k:=k+1;
break;
end;
end;
end;
for i:=1 to n do
for j:=1 to n do
if (i<>j) then
if b[i]=b[j] then
b[i]:=0;
for i:=1 to n do
if b[i]<>0 then
begin
q[qq]:=b[i];
qq:=qq+1;
end;
for i:=1 to qq-1 do
writeln(q[i]);
for i:=1 to qq-1 do
begin
for j:=1 to n do
begin
if (i<>j) then
if (q[i]=a[j]) then
begin
t:=t+1;
end;
end;
c[x]:=t;
d[x]:=q[i];
x:=x+1;
t:=1;
end;
max:=c[1];
for i:=1 to x-1 do
if c[i]>max then
begin
max:=c[i];
num:=d[i];
end;
writeln('Êîëëè÷åñòâî ìàêñèìàëüíîå=',max);
writeln('Ñàìî ÷èñëî=',num);
end. |
|
вот мой код но он криво работает
Добавлено через 13 минут
| 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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
| program laba4;
var
n,i,j,p,o,k,z,x,m,t,qq,max,num,x1:integer;
a,b,c,d,q:array[1..100] of integer;
begin
qq:=1;
m:=0;
k:=1;
z:=1;
x:=1;
t:=1;
writeln('ââåäèòå ðàçìåðíîñòü ìàññèâà');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
for j:=1 to n do
if (i<>j) then
if a[i]=a[j] then
begin
for o:=1 to n do
begin
if a[i]<>b[o] then
begin
b[k]:=a[i];
k:=k+1;
break;
end;
end;
end;
for i:=1 to k-1 do
for j:=1 to k-1 do
if (i<>j) then
if b[i]=b[j] then
b[i]:=0;
for i:=1 to k-1 do
if b[i]<>0 then
begin
q[qq]:=b[i];
qq:=qq+1;
end;
read(x1);
for i:=1 to qq-1 do
begin
for j:=1 to n do
begin
if (i<>j) then
if (q[i]=a[j]) then
begin
t:=t+1;
end;
end;
c[x]:=t;
d[x]:=q[i];
x:=x+1;
t:=1;
end;
max:=c[1];
num:=d[1];
for i:=1 to x-1 do
if c[i]>max then
begin
max:=c[i];
num:=d[i];
end;
writeln('Êîëëè÷åñòâî ìàêñèìàëüíîå=',max);
writeln('Ñàìî ÷èñëî=',num);
end. |
|
вроде это доработанный гляньте скажите что не так
Добавлено через 32 секунды
| 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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
| program laba4;
var
n,i,j,p,o,k,z,x,m,t,qq,max,num,x1:integer;
a,b,c,d,q:array[1..100] of integer;
begin
qq:=1;
m:=0;
k:=1;
z:=1;
x:=1;
t:=1;
writeln('ââåäèòå ðàçìåðíîñòü ìàññèâà');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
for j:=1 to n do
if (i<>j) then
if a[i]=a[j] then
begin
for o:=1 to n do
begin
if a[i]<>b[o] then
begin
b[k]:=a[i];
k:=k+1;
break;
end;
end;
end;
for i:=1 to k-1 do
for j:=1 to k-1 do
if (i<>j) then
if b[i]=b[j] then
b[i]:=0;
for i:=1 to k-1 do
if b[i]<>0 then
begin
q[qq]:=b[i];
qq:=qq+1;
end;
read(x1);
for i:=1 to qq-1 do
begin
for j:=1 to n do
begin
if (i<>j) then
if (q[i]=a[j]) then
begin
t:=t+1;
end;
end;
c[x]:=t;
d[x]:=q[i];
x:=x+1;
t:=1;
end;
max:=c[1];
num:=d[1];
for i:=1 to x-1 do
if c[i]>max then
begin
max:=c[i];
num:=d[i];
end;
writeln('Êîëëè÷åñòâî ìàêñèìàëüíîå=',max);
writeln('Ñàìî ÷èñëî=',num);
end. |
|
вроде это доработанный гляньте скажите что не так
0
|
(
