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

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

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

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

консоль:

0 -2 4 -5 3 4 -3 5
0 4 3 4 5