# Write a Pascal program that takes in an array of N random integers ranging from 10

July 26, 2021 | education

| **Write a Pascal program that takes in an array of N random integers ranging from 10 to 99 and displays elements that are multiples of K.**

program zz1;

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

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

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

begin

write (‘enter the given number’);

read (s);

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

m [i]: = random (90) + 10;

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 s = 0 then write (”, m [i]); // display the answer

end.

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.