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

Урок 15

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

type myArr = array[1..8] of integer;

var a, a1: myArr;
    i, j: integer;
begin
  i := 1;
  j := 0;
  randomize();
  for i:=low(a) to high(a) do
  begin
    a[i] := random(11) - 5;
    write(a[i], ' ');
    if a[i] >= 0 then //неотрицательные числа первого массива
    begin
      inc(j);
      a1[j] := a[i];
    end;
  end;
  writeln();
  for i := low(a1) to j do // вывод элементов массива
    write(a1[i], ' ');
  readln();
end.

КОНСОЛЬ

5 -1 1 0 0 1 -1 1
5 1 0 0 1 1