Переписать все положительные элементы во второй массив, а остальные — в третий - Turbo Pascal

Формулировка задачи:

Дан Массив целых чисел. Переписать все положительные элементы во второй массив, а остальные - в третий. Во втором массиве элементы должны стоять на тех же местах, что и в первом; а в третьем - идти подряд.

Код к задаче: «Переписать все положительные элементы во второй массив, а остальные — в третий - Turbo Pascal»

textual
For i:= 1 to n do
  If a[i]>0 then 
       b[i]:=a[i]
  else
       begin
           b[i]:=0;
           inc(h);
           c[h]:=a[i];
       end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 4.300 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы