Question

Задача 1.
Ввести с клавиатуры число
n
.
Заполнить вектор из
n
элементов случайными
числ
ами в диапазоне от 100 до 999. Вывести элементы вектора через пробел
и найти минимальный элемент
и сумму
.

Answer 1

PascalABC.NET 3.4

begin
  var a:=ArrRandom(ReadInteger('n='),100,999); a.Println;
  Writeln('min=',a.Min,'   sum=',a.Sum)
end.