Array120. Дан целочисленный массив размера N, содержащий по крайней мере одну серию, длина которой больше 1. Преобразовать массив, уменьшив каждую его серию на один элемент.
>Решение 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 | program Array120; 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:=0; for i:=1 to N-1 do if a[i]=a[i+1] then begin inc(k); b[k]:=a[i]; end; 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 | #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]!=a[i+1]){ --n; for (i2=i; i2<n;++i2) a[i2]=a[i2+1]; --i; } } } --n; for (i=0; i<n;++i) printf(" %i : %i\n",i+1,a[i]); return 0; } |
C#