Программа:

Pascal:

var

 arr: array[1..15] of integer;

 i: integer;

begin

 for i := 1 to 15 do arr[i] := random(-15, 45);

 write('Массив: ', arr, #10, 'Положительные элементы: ');

 for i := 1 to 15 do if arr[i] mod 2 = 0 then write(arr[i], ' ');

end.