Создать новый массив, элементами которого являются все отрицательные элементы исходного массива - Pascal
Формулировка задачи:
Добрый день.Не могли бы вы помочь с задачей на одномерный массив.
6.3. Дан массив С(п). Создать новый массив, элементами которого являются все отрицательные элементы массива C.
Заранее спасибо))
Решение задачи: «Создать новый массив, элементами которого являются все отрицательные элементы исходного массива»
textual
Листинг программы
const n=10;
var
c, d: array [1..n] of Integer;
i, m: Integer;
begin
Randomize; {m:=0;}
for i:=1 to n do c[i]:=10+Random(21);
for i:=1 to n do if c[i]<0 then begin Inc(m); d[m]:=c[i]; end;
Write('C ='); for i:=1 to n do Write(' ',c[i]); WriteLn;
Write('D ='); for i:=1 to m do Write(' ',d[i]); WriteLn;
end.