Решение № 5 из главы 15.Заполнить массив (длиной 8 элементов) случайными значениями ,выделите из него все неотрицательные числ

Задача №5

Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5, выделите из него все неотрицательные числа во второй массив и выведете его на экран (если таких чисел меньше чем, его длина, то выведете только их, не обходя незаполненные ячейки)

program pascal_array5;
type                          // Секция обьявления переменных
  a = array[1..8] of integer;
  b = array[1..8] of integer;
var arr : a;
    newarr : b;
    n,i,j,min,max,count  : integer;    
begin // начало тела программы
j := 0;
count := 0;
randomize(); // вызов стандартной процедуры иницилиз. случайными чисел
min := -5; //   левая граница 
max := 5; // правая граница  
for i:=low(arr) to high(arr) do // обходим массив и иницилизируем случ.числами
begin
  arr[i] := min + random(max - min + 1);
end;
{ обходим массив, извлекаем из него отриц.числа
 и добавляем в другой массив }
for i:=low(arr) to high(arr) do 
begin
  if( arr[i] ) < 0  then // если отрицательное число
  begin
    j += 1;
    newarr[j] := arr[i]; // иницилизируем новый массив
    count += 1; // счетчик элементов нового массива
    write( newarr[j] ,' ' ); // просто  вывод для проверки
  end;
end;
writeln(); // перенос
for j := 1 to count do // обходим новый массив до счетчика
  Write(newarr[j] ,' ' ); // выводим элементы нового массива 
end. // завершение тела программы