Array121. Решебник Абрамяна М. Э.

Array121. Дано целое число K > 0 и целочисленный массив размера N. Преобразовать массив, удвоив длину его серии с номером K. Если серий в массиве меньше K, то вывести массив без изменений.

Решение Pascal

 

Решение C

 

Оцените решение
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...

Array121. Решебник Абрамяна М. Э.: 1 комментарий

  • 23.10.2022
    Permalink

    Правильное решение для 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.

    Ответ

Добавить комментарий

Ваш адрес email не будет опубликован.

Решебник Абрамяна М. Э. на Pascal и С++. Одномерные массивы: группа Array (1-140)

Array1. Решебник Абрамяна М. Э.
Array2. Решебник Абрамяна М. Э.
Array3. Решебник Абрамяна М. Э.
Array4. Решебник Абрамяна М. Э.
Array5. Решебник Абрамяна М. Э.
Array6. Решебник Абрамяна М. Э.
Array7. Решебник Абрамяна М. Э.
Array8. Решебник Абрамяна М. Э.
Array9. Решебник Абрамяна М. Э.
Array10. Решебник Абрамяна М. Э.
Array11. Решебник Абрамяна М. Э.
Array12. Решебник Абрамяна М. Э.
Array13. Решебник Абрамяна М. Э.
Array14. Решебник Абрамяна М. Э.
Array15. Решебник Абрамяна М. Э.
Array16. Решебник Абрамяна М. Э.
Array17. Решебник Абрамяна М. Э.
Array18. Решебник Абрамяна М. Э.
Array19. Решебник Абрамяна М. Э.
Array20. Решебник Абрамяна М. Э.
Array21. Решебник Абрамяна М. Э.
Array22. Решебник Абрамяна М. Э.
Array23. Решебник Абрамяна М. Э.
Array24. Решебник Абрамяна М. Э.
Array25. Решебник Абрамяна М. Э.
Array26. Решебник Абрамяна М. Э.
Array27. Решебник Абрамяна М. Э.
Array28. Решебник Абрамяна М. Э.
Array29. Решебник Абрамяна М. Э.
Array30. Решебник Абрамяна М. Э.
Array31. Решебник Абрамяна М. Э.
Array32. Решебник Абрамяна М. Э.
Array33. Решебник Абрамяна М. Э.
Array34. Решебник Абрамяна М. Э.
Array35. Решебник Абрамяна М. Э.
Array36. Решебник Абрамяна М. Э.
Array37. Решебник Абрамяна М. Э.
Array38. Решебник Абрамяна М. Э.
Array39. Решебник Абрамяна М. Э.
Array40. Решебник Абрамяна М. Э.
Array41. Решебник Абрамяна М. Э.
Array42. Решебник Абрамяна М. Э.
Array43. Решебник Абрамяна М. Э.
Array44. Решебник Абрамяна М. Э.
Array45. Решебник Абрамяна М. Э.
Array46. Решебник Абрамяна М. Э.
Array47. Решебник Абрамяна М. Э.
Array48. Решебник Абрамяна М. Э.
Array49. Решебник Абрамяна М. Э.
Array50. Решебник Абрамяна М. Э.
Array51. Решебник Абрамяна М. Э.
Array52. Решебник Абрамяна М. Э.
Array53. Решебник Абрамяна М. Э.
Array54. Решебник Абрамяна М. Э.
Array55. Решебник Абрамяна М. Э.
Array56. Решебник Абрамяна М. Э.
Array57. Решебник Абрамяна М. Э.
Array58. Решебник Абрамяна М. Э.
Array59. Решебник Абрамяна М. Э.
Array60. Решебник Абрамяна М. Э.
Array61. Решебник Абрамяна М. Э.
Array62. Решебник Абрамяна М. Э.
Array63. Решебник Абрамяна М. Э.
Array64. Решебник Абрамяна М. Э.
Array65. Решебник Абрамяна М. Э.
Array66. Решебник Абрамяна М. Э.
Array67. Решебник Абрамяна М. Э.
Array68. Решебник Абрамяна М. Э.
Array69. Решебник Абрамяна М. Э.
Array70. Решебник Абрамяна М. Э.
Array71. Решебник Абрамяна М. Э.
Array72. Решебник Абрамяна М. Э.
Array73. Решебник Абрамяна М. Э.
Array74. Решебник Абрамяна М. Э.
Array75. Решебник Абрамяна М. Э.
Array76. Решебник Абрамяна М. Э.
Array77. Решебник Абрамяна М. Э.
Array78. Решебник Абрамяна М. Э.
Array79. Решебник Абрамяна М. Э.
Array80. Решебник Абрамяна М. Э.
Array81. Решебник Абрамяна М. Э.
Array82. Решебник Абрамяна М. Э.
Array83. Решебник Абрамяна М. Э.
Array84. Решебник Абрамяна М. Э.
Array85. Решебник Абрамяна М. Э.
Array86. Решебник Абрамяна М. Э.
Array87. Решебник Абрамяна М. Э.
Array88. Решебник Абрамяна М. Э.
Array89. Решебник Абрамяна М. Э.
Array90. Решебник Абрамяна М. Э.
Array91. Решебник Абрамяна М. Э.
Array92. Решебник Абрамяна М. Э.
Array93. Решебник Абрамяна М. Э.
Array94. Решебник Абрамяна М. Э.
Array95. Решебник Абрамяна М. Э.
Array96. Решебник Абрамяна М. Э.
Array97. Решебник Абрамяна М. Э.
Array98. Решебник Абрамяна М. Э.
Array99. Решебник Абрамяна М. Э.
Array100. Решебник Абрамяна М. Э.
Array101. Решебник Абрамяна М. Э.
Array102. Решебник Абрамяна М. Э.
Array103. Решебник Абрамяна М. Э.
Array104. Решебник Абрамяна М. Э.
Array105. Решебник Абрамяна М. Э.
Array106. Решебник Абрамяна М. Э.
Array107. Решебник Абрамяна М. Э.
Array108. Решебник Абрамяна М. Э.
Array109. Решебник Абрамяна М. Э.
Array110. Решебник Абрамяна М. Э.
Array111. Решебник Абрамяна М. Э.
Array112. Решебник Абрамяна М. Э.
Array113. Решебник Абрамяна М. Э.
Array114. Решебник Абрамяна М. Э.
Array115. Решебник Абрамяна М. Э.
Array116. Решебник Абрамяна М. Э.
Array117. Решебник Абрамяна М. Э.
Array118. Решебник Абрамяна М. Э.
Array119. Решебник Абрамяна М. Э.
Array120. Решебник Абрамяна М. Э.
Array121. Решебник Абрамяна М. Э.
Array122. Решебник Абрамяна М. Э.
Array123. Решебник Абрамяна М. Э.
Array124. Решебник Абрамяна М. Э.
Array125. Решебник Абрамяна М. Э.
Array126. Решебник Абрамяна М. Э.
Array127. Решебник Абрамяна М. Э.
Array128. Решебник Абрамяна М. Э.
Array129. Решебник Абрамяна М. Э.
Array130. Решебник Абрамяна М. Э.
Array131. Решебник Абрамяна М. Э.
Array132. Решебник Абрамяна М. Э.
Array133. Решебник Абрамяна М. Э.
Array134. Решебник Абрамяна М. Э.
Array135. Решебник Абрамяна М. Э.
Array136. Решебник Абрамяна М. Э.
Array137. Решебник Абрамяна М. Э.
Array138. Решебник Абрамяна М. Э.
Array139. Решебник Абрамяна М. Э.
Array140. Решебник Абрамяна М. Э.