Создать новый массив, элементами которого являются все отрицательные элементы массива C - Turbo Pascal (33989)

Формулировка задачи:

Дан массив С(п). Создать новый массив, элементами которого являются все отрицательные элементы массива C

Код к задаче: «Создать новый массив, элементами которого являются все отрицательные элементы массива C - Turbo Pascal (33989)»

textual
const
  n = 10;
var
  c, b : array[1..n] of integer;
  i, j : integer;
begin
  randomize;
  j := 0;
  writeln('массив C');  
  for i := 1 to n do
  begin
    c[i] := random(20) - 10;
    write(c[i]:4);
    if c[i] < 0 then
    begin
      inc(j);
      b[j] := c[i]
    end
  end;
  writeln;
  writeln('массив B');
  for i := 1 to j do
    write(b[i]:4);
  readln
end.

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы