Из массива удалить все элементы, которые меньше 0.составить программу в паскале,.

Var   a: array[0..99] of integer; begin   //заполняем массив случайными числами   randomize();   for var i: =0 to 99 do a[i]: =random(-100,100);     //а теперь заменяем все отрицательные элементы на ноль   for var i: =0 to 99 do      if (a[i]< 0) then a[i]: =0; end. вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива program pr_1; constn = 6; vara: array [1..n] of integer;   n1: integer; beginwrite('введите '); for i : = 1 to n doread(a[i]);   n1: =n;   for var i: =n downto 1 do{в цикле просматриваем элементы массива}  begin    if a[i] < 0 then {проверяем, нужно ли удалять i-ый элемент}    begin{если нужно – удаляем i-ый элемент}      for var j : = i to n1 - 1 do          a[j] : = a[j + 1]; {сдвигаем}        a[n1]: =0;           dec(n1); {уменьшаем количество элементов}    end;   end;   for var i: =1 to n1 do    write(a[i], ' '); end.

Объем сообщения = 25*16 бит = 400 бит = 400/8 байт = 50 байт