Write a program in Pascal that determines how many times the number 10 occurs among the elements of the one-dimensional array A (12), consisting of integers and filled from the keyboard.
const n = 12; // set the number of elements in the array
var i, k: integer; // set variables of integer type
a: array [1..n] of integer; // describe an array with n elements
for i: = 1 to n do // get n numbers from the keyboard and write them into an array
read (a [i]);
writeln; // go to a new line to display the response
for i: = 1 to n do
if a [i] = 10 then k: = k + 1; // check the condition and count the number of elements equal to 10
writeln (‘elements equal to 10 =’, k); // 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.