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

Question

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

Answer 1

Var p: array[1..12] of integer;
begin
var 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.

Comments

в ответе пишет NaN и всё :(

---

заполнение массива допиши

---

можно рандомными числами for var i := 1 to 12 do p[i] := rand();

---

дружище если бы я знал как

---

вот эту строчку напиши сразу после комментария моего

---

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

---

все

---

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

---

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

---

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