Написать программу, которая из случайно сформированного
одномерного массива размерности 10 выводит только те
элементы, значения которых принадлежат отрезку [-6; 30].
Для заполнения массива использованы случайные числа от -
10 до 50.

Program Rnd2020;

type rnd_array = array [1..10] of integer;

var

  i:1..10;

 k:integer;

a: rnd_array;

v:integer;

begin

       (* инициализируем генератор случайных чисел *)

      randomize;

    for i:=1 to 10 do

    a[i]:=rand(41)+10;

    for i:=1 to 10 do

   begin

            v:=a[i];

            if ((v>=  -6) and (v<=30)) then

              writeln(v);

    end;

end.

Объяснение: