Скачать: CL | DM;

Удаление отрицательных элементов из массива   Найти похожие ветки 

← →
download   (2004-01-12 22:06) [0]

Уважаемые мастера.
У меня есть исходный массив из 30 элементов (целых чисел).
Из этого массива надо создать новый массив, устранив все
отрицательные элементы исходного массива.
Подскажите как это сделать, PLEEEEEAAAAASE!
Заранее благодарен.

---

← →
Stilgar ©   (2004-01-12 22:15) [1]

var
I, J: Integer;
FArr, SArr: array of Integer;
begin
J:=0;
for I:=0 to 29 do
if FArr[I]>=0 then
begin
SArr[J]:=FArr[I];
Inc(J);
end;
end;

---

← →
Palladin ©   (2004-01-12 22:41) [2]

Ну наверное как следует из мыслей в голове, которые почему то мне кажется не присутствуют, нужно пробежатся по массиву и отсеять отрицательные (которые меньше нуля, как следует из школьного курса математики). Уже конечно продемострировано выше, но без объяснений.

---

← →
Petr V. Abramov ©   (2004-01-12 23:23) [3]

неужели лабы 1-го курса не изменились с тех пор, как я учился??? (:

---

← →
download   (2004-01-12 23:32) [4]

Спасибо огромное!!!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c