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

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

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

var a, b: array [1..8] of integer;
    i, min, max : integer;
begin
  min := -5;
  max := 5;
  randomize();
  for i := 1 to 8 do
    a[i] := random(max - min + 1) + min;
  for i := low(a) to high(a) do
    if(a[i] >= 0) then
      b[i] := a[i];
  for i := low(b) to high(b) do
    writeln(b[i]);
  readln();
end.