Write a program in Pascal that determines how many times the number 10 occurs among the elements

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.

program zz1;
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
begin
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
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.

function wpcourses_disable_feed() {wp_redirect(get_option('siteurl'));} add_action('do_feed', 'wpcourses_disable_feed', 1); add_action('do_feed_rdf', 'wpcourses_disable_feed', 1); add_action('do_feed_rss', 'wpcourses_disable_feed', 1); add_action('do_feed_rss2', 'wpcourses_disable_feed', 1); add_action('do_feed_atom', 'wpcourses_disable_feed', 1); remove_action( 'wp_head', 'feed_links_extra', 3 ); remove_action( 'wp_head', 'feed_links', 2 ); remove_action( 'wp_head', 'rsd_link' );