Дан одномерный массив T 12. Найти разность между максимальным и минимальным элементом...

Question

Дан одномерный массив T 12. Найти разность между максимальным и минимальным элементом массива

Answer 1

Begin
var t:=ArrRandom(12,-20,20); t.Println;
var max:=t.Max;
var min:=t.Min;
writeln('max = ',max,' min = ',min, ' max-min = ',max-min);
end.

Пример:
13 10 5 -5 0 -18 15 -3 20 -4 8 0
max = 20 min = -18 max-min = 38