Удаление отрицательных элементов из массива

← →
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]

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

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