Array116. Дан целочисленный массив A размера N. Назовем серией группу подряд идущих одинаковых элементов, а длиной серии − количество этих элементов (длина серии может быть равна 1). Сформировать два новых целочисленных массива B и C одинакового размера, записав в массив B длины всех серий исходного массива, а в массив C − значения элементов, образующих эти серии.
>Решение 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 | program Array116; var a,b,c : array [1..10] of real; N,i,k: integer; begin Write('N: '); Readln(N); Writeln('A: '); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; k:=1; b[k]:=1; c[k]:=a[k]; for i:=2 to N do begin if a[i-1]=a[i] then b[k]:=b[k]+1 else begin inc(k); b[k]:=1; c[k]:=a[i]; end; end; for i:=1 to k do writeln(c[i],' - ', b[i] ); 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 | #include <stdio.h> int main(void) { int a[10], b[10], c[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 k=0; b[k]=1; c[k]=a[k]; for (i=1;i<n;++i){ if (a[i-1]==a[i]) ++b[k]; else{ ++k; b[k]=1; c[k]=a[i]; } } for (i=0; i<=k;++i) printf(" %i>%i:%i\n",i+1,b[i],c[i]); return 0; } |
Perfect
Ajoyib lekin men buni hammasini java da yozib bo`ldim