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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы