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

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

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

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

КОН Задание.

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