Урок 15 (Решенная задача номер 5)

Урок 15 (Решенная задача номер 15)

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

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