В массиве найти минимальный и максимальный элементы вычислить их разность. Программа ​

Python:

a = [21,312,31,55,66,1]

print(max(a)-min(a))

Pascal:

program one;

const N = 10;

var

   mas: array[1..N] of integer;

   i,min, max: integer;

begin

   randomize;

   min := 100;

   max := -1;

   for i:=1 to N do mas[i]:=random(100);

   for i:=1 to N do

writeln(mas[i]);

   for i:=1 to N do begin

       if mas[i] > max then max := mas[i]

       else if mas[i] < min then min := mas[i];

   end;

   writeln(max,'-',min,'=',max-min);    

end.