Array48. Дан целочисленный массив размера N. Найти максимальное количество его одинаковых элементов.
>Решение 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 | program Array48; var a:array[1..10] of integer; N,i,i2,Num,an,NumMax:Integer; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; NumMax:=0; an:=0; for i:=1 to N do begin Num:=0; for i2:=1 to N do if a[i]=a[i2] then Num:=Num+1; if Num>NumMax then begin NumMax:=Num; an:=a[i]; end; end; Writeln(an,' - ',NumMax); end. |
>
Решение C
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 | #include <stdio.h> int main(void) { int a[10]; int n; printf("N: "); scanf("%i",&n); int i; for (i=0; i<n; ++i){ printf("a[%i] : ",i+1); scanf("%i",&a[i]); } int i2,nummax=0; for (i=0; i<n;++i){ int num = 1; for (i2=i+1; i2<n;++i2){ if (a[i]==a[i2]){ ++num; } } if (num>nummax){ nummax=num; } } printf("%i \n",nummax); return 0; } |