Найти частное от деления максимального на минимальный элемент массива Р(12).
Решите через паскаль , пожалуйста , срочно !!!

встречено to а ожидалось ; (выбивает ошибку )

все

А если каждый раз при запуске , разный ответ , так должно быть ?

ну так каждый раз массив заполняется рандомными данными

понял , спасибо большое )))

var p: array[1..12] of integer;beginvar min: integer;var max: integer;randomize;for var i := 1 to 12 do p[i] := random(100); min := p[1];max := p[1];for var i:= 1 to 12 do if p[i] < min then min := p[i];for var i:= 1 to 12 do if p[i] > max then max := p[i];writeln(max/min);end.