Переписать все положительные элементы во второй массив, а остальные — в третий - 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;

Объяснение кода листинга программы

В данном коде используется цикл for, который проходит по всем элементам массива a от 1 до n. Внутри цикла проверяется условие: если элемент a[i] больше нуля, то его значение присваивается элементу b[i]. Если же условие не выполняется, то выполняется блок else. В этом блоке значение элемента a[i] присваивается элементу c[h], где h - это переменная, которая увеличивается на единицу после каждого присваивания. Таким образом, все неположительные элементы массива a будут скопированы в массив c, а все положительные элементы останутся в массиве b.

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы