Question

Найти частное от деления максимального на минимальный элемент массива Р(12).

Answer 1

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

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

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

КОН Задание.