Given a one-dimensional array, fill it with random numbers from 1 to 100; print only even elements in the answer. Pascal program.
const n = 50; // set the number of elements in the array
var i, s, k: integer; // set variables of integer type
m: array [1..n] of integer; // set the array to n elements of integer type
for i: = 1 to n do // get n random numbers and write them into an array
m [i]: = random (101);
for i: = 1 to n do // display the resulting 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 2 = 0 then write (m [i], ”); // check if the element is even, then display the answer
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.