Дан массив ,заданный датчиком случайных чисел в интервале [-60;140]. Определить,...

Question

Дан массив ,заданный датчиком случайных чисел в интервале [-60;140]. Определить, максимальный и минимальный элемент массива.

Answer 1

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
  var n:=ReadInteger('Число элементов массива');
  var a:=ArrRandom(n,-60,140); a.Println(', ');
  WritelnFormat('max={0}, min={1}',a.Max,a.Min)
end.

Тестовое решение:
Число элементов массива 10
-26, 134, 124, 103, 25, 31, 41, -31, 57, 46
max=134, min=-31

Comments

большое спасибо, но мне нужно было немножко по-другому ... нужно, чтобы было в программе a:array[], все переменные обозначить либо integer либо real......через if , for и т.д.....но всё равно большое спасибо)))))

---

Т.е. Вам нужно не просто решение, а решение так, как "мы решаем". Но тогда надо было подробно писать о том, что именно нужно и чего нельзя.

---

В принципе понятно, что нужно решение "как решали 25 лет назад", потому что учитель на том урвне остановился и дальше не пошел. Но это еще не повод писать программу размером в двадцать строчек вместо трех.

---

ахахах вы лучший, не сомневаюсь, что на питоне, вы бы написали бы это вообще в 1 строчку)

---

Нет, PascalABC.NET 3.0 (он же Паскаль-2015) существенно удобнее и лаконичнее Пайтона, по крайней мере, для школьных задач.