Заполните массив из n элементов случайными целыми числами из интервала от a до b включительно, вывести полученный массив, а также массив состоящий из четных элементов​

===== PascalABC.NET =====

Var

 a,b,i,n : integer;

 mass:array of integer;

Begin

 Writeln('Введите значения a,b,n');

 Readln(a,b,n);

 SetLength(mass, n);

 for i:=0 to n-1 do

   begin

     mass[i]:=Random(b-a+1)+a;

     write(' ', mass[i]);

   end;

 writeln('');

 for i:=0 to n-1 do

 begin

   if mass[i] mod 2 = 0 then

     write(' ', mass[i]);

 end;

End.

Объяснение: