Write a program in Pascal – In a one-dimensional array of integers containing 20 elements
Write a program in Pascal – In a one-dimensional array of integers containing 20 elements, delete the k-th element of the array. The array is filled randomly with numbers from 0 to 50.
program zz1;
const n = 20; // set the number of elements in the array
var i, k: integer; // set variables of integer type
m: array [1..n] of integer;
begin
write (‘enter k’); read (k);
for i: = 1 to n do // get 12 random numbers and write them into an array
m [i]: = random (51);
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: = k to n-1 do
m [i]: = m [i + 1]; // remove the k-th element
for i: = 1 to n-1 do // display the resulting array on the screen
write (m [i], ”);
end.