Array119. Дан целочисленный массив размера 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 35 36 | program Array119; var a,b : array [1..20] 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]:=a[1]; for i:=2 to N do begin inc(k); if a[i-1]<>a[i] then begin b[k]:=b[k-1]; inc(k); end; b[k]:=a[i]; end; inc(k); b[k]:=b[k-1]; a:=b; for i:=1 to k do writeln(a[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 29 30 | #include <stdio.h> int main(void) { int a[20]; 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; for (i=0;i<n;++i){ if (i+1<n){ if (a[i+1]!=a[i]){ ++n; for (i2=n-1;i2>i;--i2) a[i2]=a[i2-1]; ++i; } } } ++n; a[n-1]=a[n-2]; for (i=0; i<n;++i) printf(" %i : %i\n",i+1,a[i]); return 0; } |