Дан массив 20 целых чисел из интервала от -12 до 34. С клавиатуры получить числа в переменные a, b. Указать элементы из массива, которые принадлежат интервалу от a до b.

Ответ:

var

 ar: array [1..20] of Integer;

 a, b, i: Integer;

begin

 Randomize;

 for i := Low (ar) to High (ar) do begin

   ar [i] := Random (47) - 12;

   Write (ar [i], ' ');

 end;

 WriteLn;

 Write ('A, B = ');

 ReadLn (a, b);

 for i := Low (ar) to High (ar) do

   if (ar [i] >= a) and (ar [i] <= b) then

     Write (ar [i], ' ');

 ReadLn;

end.