const n=5;
var matr: array[1..n,1..n] of real;
max: real;
i,j: integer;
begin
{Filling an  array}
for i:=1 to n do 
for j:=1 to n do begin
writeln('Enter the  current value of an array element');
readln(matr[i,j]); end;
{find  the  maximum element of the first and last row}
max:=matr[1,1];
for i:=1 to n do begin
if matr[1,i]>max then max:=matr[1,i];
if matr[n,i]>max then max:=matr[n,i];
end;
writeln('maximum  value  among  the  elements of the first and last row is ',max);
readln;
end.

const n=10;
var a: array[1..n] of real;
min, max, lapse: real;
n_min, n_max, i: integer;
begin 
{Filling an  array}
for i:=1 to n do begin
writeln('Enter the  current value of an ',i,' array element'); 
readln(a[i]); end;
{Search for the maximum and minimum values of the elements in the  array  and their numbers}
n_min:=0; n_max:=0;
min:=a[1];
max:=a[1];
for i:=2 to n do begin
if a[i]<=min then begin n_min:=i; min:=a[n_min]; end;
if a[i]>=max then begin n_max:=i; max:=a[n_max]; end;
end;
lapse:=a[n_min]; 
a[n_min]:=a[n_max]; 
a[n_max]:=lapse; 
{output values of the elements on the screen}
for i:=1 to n do
writeln(a[i]);
readln;
end.

CONST
 N=10;
VAR
 A,B,Num_L,Num_H:Array[1..N] of Byte;
 N_lo,N_hi:Byte;
 i:Integer;
BEGIN
 Randomize;
 For i:=1 to N do
  A[i]:=random(100);
 N_lo:=0;
 N_hi:=0;
 For i:=2 to N do
  if A[i]>A[1] then
   begin
    Inc(N_hi);
    Num_H[N_hi]:=i;
   end
  else
   begin
    Inc(N_lo);
    Num_L[N_lo]:=i;
   end;
 For i:=1 to N_hi do
  B[i]:=A[Num_H[i]];
 B[N_hi+1]:=A[1];
 For i:=1 to N_lo do
  B[N_hi+1+i]:=A[Num_L[i]];
 For i:=1 to N do
  Write(A[i]:4);
 Writeln;
 For i:=1 to N do
  Write(B[i]:4);
 Writeln;
 ReadLn;
END.