ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...ОтделыЧисла", Вывод ИЗ "...ОтделыОбмен";

ПЕР
  массив: РЯД 30 ИЗ ЦЕЛ;
  сч, мин, макс, разница: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 10))
  КОН;
  мин := массив[0]; макс := мин;
  ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > макс ТО макс := массив[сч]
    АЕСЛИ массив[сч] < мин ТО мин := массив[сч]
    КОН
  КОН;
  разница := макс - мин;
  Вывод.ЧЦел("%d", разница, 0, 0, 0)

КОН Задание.

// Программа и скриншот ее работы в приложениях.

const
    vt_max=30;

var  
    i:byte;
    max,min:integer;
    vt:array[1..vt_max]of integer;
   
begin
  writeln('Заполнение массива из ', vt_max ,' элементов случайными данными');
 
  //начальные значения min и max
  min:=512;
  max:=0;
  for i:=1 to vt_max do begin
    vt[i]:=random(-20,20);// диапазон случаынйх чисел
    write(vt[i]:6);
   
    if (vt[i]<min) then
      min:=vt[i];
     
    if (vt[i]>max) then
      max:=vt[i];
  end;
 
 
  writeln(''); 
  writeln('Минимальный элемент = ', min);
  writeln('Максимальный элемент = ', max);
  writeln('Разность = ',max-min);
 
 end.