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

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

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

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

Вывод в консоли:

4 -4 -5 5 -4 -1 -1 4 
4  5  4