Question

7. Напишите на Паскале программу, которая заполняет массив размером N случайными значениями из промежутка [0,20], выводит содержимое массива на экран, вычисляет и выводит на экран сумму его элементов и значение наименьшего элемента массива. Отладьте программу, а затем скопируйте ее и полученный с ее помощью ответ в ваш текстовый файл.

Answer 1

##

var n := ReadInteger;

var a := ArrRandom(n, 0, 20);

a.Println;

Print(a.Sum, a.Min)