In pascal, fill an array of 10 elements with random numbers from [0,5) and find the number of ones.

program zz1;

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

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

k1: real;

m: 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 (6);

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 // organize a loop in which we iterate over all the elements of the array

if m [i] = 1 then k: = k + 1; // get ones in the array

write (‘the number of ones among the array elements =’, k); // display the answer

end.