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

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

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

var
   arr: array [1..8] of integer;
   arr2: array [1..8] of integer;
   min, max, i, j: integer;
begin
  min:= -5;
  max:= 5;
  randomize();
  //заполнение первого массива arr
  for i:= low(arr) to high(arr) do
    begin
       arr[i]:= min + random(max - min + 1);
    end;
   j:= 0;
   //поиск элементов больше 0 в массиве arr
   //и запись во второй массив arr2
   for i:= low(arr) to high(arr) do
     if arr[i] > 0 then
        begin
        inc(j);
        arr2[j]:= arr[i];
        end;
   //вывод первого массива arr
   for i:= low(arr) to high(arr) do
     write(arr[i], ' ');
   writeln();
   writeln();
   //вывод второго массива arr2
   for j:=low(arr2) to high(arr2) do
     if arr2[j] > 0 then
     writeln(arr2[j]);
   readln();
end.