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

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

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

type
  myArr1 = array[1..8] of integer;
  myArr2 = array[1..8] of integer;
var
  a: myArr1;
  b: myArr2;
  min, max, i, j, n : integer;
begin
  randomize();
  min := -5;
  max := 5;
  for i:=low(a) to high(a) do
    a[i] := min + random(max - min + 1);
  j := 1;
  for i:=low(a) to high(a) do
    if (a[i] >= 0) then
    begin
      b[j] := a[i];
      j += 1;
    end;
  write('Числа массива b: ');
  for i := low(b) to j - 1 do
    write(b[i], ' ');
  write('Числа массива a: ');
  for i := low(a) to high(a) do
    write(a[i], ' ');
  readln();readln();
end.