An array of N elements is given. Determine the maximum (minimum) element.

var
number, max_element, min_element: integer;
arr: array [1..10] of integer;

begin
for number: = 1 to 10 do
begin
arr [number]: = random (10);
write (arr [number]: 5);
end;

min_element: = arr [1];

for number: = 1 to 10 do
begin
if arr [number]> max_element then
max_element: = arr [number];
if arr [number] <min_element then
min_element: = arr [number];
end;

writeln ();
writeln (‘Maximum array element:’, max_element: 5);
writeln (‘Min array element:’, min_element: 5);
end.