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

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

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

program zadacha7;
var a: array [1..8] of integer;
    b: array [1..8] of integer;
  i, k, m: integer;

begin
  for i:=low(a) to high(a) do
    a[i] := -5 + random(11);

  for i:=1 to 8 do
    if a[i] >= 0 then
    begin
      b[i]:=a[i];
      write(b[i],' ');
    end;
  readln();
end.