Given a one-dimensional array. From array elements that are multiples of 5 but not multiples of 3, formulate an array b.

program zz1;

const n = 15; // set the number of elements in the array

var i, k: integer; // set variables of integer type

m, b: array [1..n] of integer;

begin

for i: = 1 to n do // get n random numbers and write them into an array

m [i]: = random (51);

for i: = 1 to n do // display the original array on the screen

write (m [i], ”);

writeln; // go to a new line to display the response

for i: = 1 to n do

if (m [i] mod 5 = 0) and (m [i] mod 3 <> 0) then begin k: = k + 1; b [k]: = m [i]; end;

for i: = 1 to k do // display the new array on the screen

write (b [i], ”);

end.