Создать новый массив, элементами которого являются все отрицательные элементы исходного массива - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
