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

// 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

Данил 2019-05-13 08:47:51

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

Алексей Черевацкий 2019-05-13 08:53:33

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

Василий Кельманов 2019-05-13 08:55:50

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

Кира Белозуб 2019-05-13 09:04:09

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

Тимур 2019-05-13 09:13:01

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

О проекте

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

Добро пожаловать!