В одномерном массиве найти разность наибольшего и наименьшего элемента

//Pascalconst n=100; //количество элементов массиваvar i,max,min:integer;    a:array[1..n] of integer;begin//Считаем что массив уже заполнен//Пусть начальное значение max заведомо меньше минимального а//начальное значение min больше максимального значения элемента массива   max:=-999999; min:=999999;  for i:=1 to n do begin    if a[i]>max then max:=a[i];    if a[i]<min then min:=a[i];  end;  writeln(max-min);end.