Урок 15 задача 7

Урок 15 задача 7

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

program project1;
var numArr1,numArr2: array[1..8] of integer;
i,j: integer;
begin
  j:=1;
  randomize;
  for i:=1 to 8 do
  begin
    numArr1[i]:=random(11)-5;
    if(numArr1[i]>=0)then
    begin
      numArr2[j]:=numArr1[i];
      j:=j+1;
    end;
  end;
  for i:=1 to j-1 do
  begin
      write(numArr2[i],' ');
  end;
  readln();
end.