Задание 7 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

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

var
  a,b: array [1..8] of integer;
  i: integer;
begin
  randomize;
  for i:=1 to 8 do
    a[i]:= random (10) - 5; //Заполните массив целых чисел случайными значениями от -5 до 5
  writeln('first array: ');
  for i:=1 to high(a) do
    write(a[i], ' ');
  writeln();
  writeln('second array: ');
  for i:=1 to high(a) do
     if (a[i] >= 0) then   //Сохраните все неотрицательные числа первого массива
       begin
         b[i]:=a[i];
         write(b[i], ' ');  //и выведете этот второй массив на экран
       end;
  readln();
end.

//first array:
//-4 3 -3 4 -1 2 2 0
//second array:
//3 4 2 2 0