Удалить в массиве второй отрицательный элемент если такой естьpascal abc

Question

Удалить в массиве второй отрицательный элемент если такой есть
pascal abc

Comments

Тип массива? Статический или динамический? Если статический, то какой у него размер? Как заполняется массив? С клавиатуры или из файла? Или случайным образом?

---

тип массива a:array [1..10] of integer

---

с клавиатуры

Answer 1

Удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then<br>{name array}:=0;

Comments

Удалить в смысле убрать из этого массива