Переписать в массив C(n) положительные элементы массива b(n) делённые на 2 . Со сдвигом (сжатием) массива.

[SnS]

здравствуйте, подскажите пожалуйста: Дан массив b (n) . Переписать в массив C(n) положительные элементы массива b(n) делённые на 2 . Со сдвигом (сжатием) массива.

[VIK_aka_TOR]

c_i := 1; // для С массива
for i:= 1 to n do
  if b[i] > 0 then
    begin
       c[c_i] := b[i] / 2;
       inc(c_i);
    end;

[Serge_Bliznykov]

не совсем понятно, о каком сжатии массива в задаче идёт речь...

рискну предположить, что автор задачи так криво сформулировал, что он подразумевал, что положительные элементы из массива b обрабатываются и удаляются.
А может быть, это моё предположение и чистой воды фантазия...

[VIK_aka_TOR]

Сообщение от Serge_Bliznykov

не совсем понятно, о каком сжатии массива в задаче идёт речь...

рискну предположить, что автор задачи так криво сформулировал, что он подразумевал, что положительные элементы из массива b обрабатываются и удаляются.
А может быть, это моё предположение и чистой воды фантазия...

учитывая что ТС кликнул на весы и дальнейшей беседы не поддержал, вероятнее всего его "нужда" была удовлетворена... ну или после неодобрения преподавателя ТС вернется в эту тему или создаст новую...

[Serge_Bliznykov]

VIK_aka_TOR, скорее всего Вы правы...