ОТДЕЛ Задание+;

ПЕР
  P: РЯД 12 ИЗ ВЕЩ;
  частное: ВЕЩ;
  макс, мин: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  макс := P[0]; мин := P[0];
  ОТ сч := 1 ДО РАЗМЕР(P) - 1 ВЫП
    ЕСЛИ P[сч] gt; макс ТО
      макс := P[сч]
    АЕСЛИ P[сч] lt; мин ТО
      мин := P[сч]
    КОН
  КОН;
  частное := макс / мин;

КОН Задание.