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

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