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