Write a pascal program that fills an array with random numbers and finds their sum. The array length is 10.
June 25, 2021 | education
| program zz1;
const n = 10; // set the number of elements in the array
var i, s: integer; // set variables of integer type
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 (51) -25;
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
s: = 0;
for i: = 1 to n do // organize a loop in which we iterate over all the elements of the array
s: = s + m [i];
write (‘sum of array elements =’, s); // 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.