Решение задачи №7 из главы 15

Решение задачи №7 из главы 15

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

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

-2 -1 -1 -2
3 5 5 2

var i: integer;
    a: array [1..8] of integer;
    b: array [1..8] of integer;
{ Процедура получает значение переменной a по ссылке }
procedure initIntArrayOfSeven(var a: array of integer);
var min, max: integer;
begin
   randomize(); // инициал. датчик случайных чисел (вызов стандартной процедуры)

   min := -5; // левая граница
   max := 5; // правая граница

   { обходим переданный массив
     и инициализируем массив случайными числами}
   for i:=low(a) to high(a) do
      a[i] := min + random(max - min + 1);
end;

begin    // далее программа использующая нашу процедуру

  initIntArrayOfSeven(a); { заполняем массив случайными числами,
          передаем переменную в процедуру по ссылке }
  for i:=low(a) to high(a) do // обходим наш массив
     if a[i] < 0 then
     write(a[i], ' ');  // выводим очередное его значение
     writeln();
     b:=a;
  for i:=low(b) to high(b) do // обходим наш массив
     if b[i] > 0 then
        write(b[i], ' ');
  readln(); // удерживаем консоль
end.