Array121. Дано целое число K > 0 и целочисленный массив размера N. Преобразовать массив, удвоив длину его серии с номером K. Если серий в массиве меньше K, то вывести массив без изменений.
>Решение 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 | program Array121; var a,b : array [1..20] of real; N,K,i,i2,ki: integer; begin Write('N: '); Readln(N); Write('K: '); Readln(K); Writeln('A: '); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; i2:=0; ki:=1; for i:=1 to N-1 do begin if ki = K then begin inc(i2); b[i2]:=a[i]; end; inc(i2); b[i2]:=a[i]; if a[i]<>a[i+1] then inc(ki); end; // проверяем последний элемент на соответствие условию if ki = K then begin inc(i2); b[i2]:=a[i]; end; inc(i2); b[i2]:=a[i]; a:=b; for i:=1 to i2 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 31 32 33 34 | #include int main(void) { int a[20]; int n,k; printf("N: "); scanf("%i",&n); printf("K: "); scanf("%i",&k); int i; for (i=0; i<n; ++i){ printf("a[%i] : ",i+1); scanf("%i",&a[i]); } int num=1; for (i=0;(i<n-1) && (num<k);++i){ if (a[i]!=a[i+1]) ++num; } int begine=i; for (i=begine;(i<n-1);++i){ if (a[i]!=a[i+1]) break; } int ende = i; int i2; for(i2=1;i2<=ende-begine+1;++i2){ n++; for (i=n-1;i>ende;i--){ a[i]=a[i-1]; } } for (i=0; i<n;++i) printf(" %i : %i\n",i+1,a[i]); return 0; } |
Правильное решение для Pascal:
program Array121;
var
a,b : array [1..20] of real;
N,K,i,i2,ki: integer;
begin
Write(‘N: ‘);
Readln(N);
Write(‘K: ‘);
Readln(K);
Writeln(‘A: ‘);
for i:=1 to N do
begin
write(i,’ :’);
readln(a[i]);
end;
i2:=0;
ki:=1;
for i:=1 to N-1 do
begin
if ki = K then
begin
inc(i2);
b[i2]:=a[i];
end;
inc(i2);
b[i2]:=a[i];
if a[i]a[i+1] then inc(ki);
end;
// проверяем последний элемент на соответствие условию
if ki = K then
begin
inc(i2);
b[i2]:=a[i+1];
end;
inc(i2);
b[i2]:=a[i+1];
a:=b;
for i:=1 to i2 do writeln(a[i]);
end.