Given an array A (4). Find the maximum element of an array and its ordinal number. In pascal.

program zz1;
const n = 4; // set the number of elements in the array
var i, max1, k: integer; // set variables of integer type
m: array [1..n] of integer;
for i: = 1 to n do // write numbers in the array at random
m [i]: = random (21);
for i: = 1 to n do // display the array on the screen
write (m [i], ”);
writeln; // go to a new line to display the response
max1: = 0;
for i: = 1 to n do // find the maximum element and its number
if m [i]> max1 then begin max1: = m [i]; k: = i; end;

writeln (‘max element =’, max1); // display the answer
write (‘its sequence number =’, k);

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.