Question

Помогите ПОЖАЛУЙСТА: 1 Составьте программу для вычисления суммы массива, состоящего из пятнадцати элементов, значения которых изменяются в диапазоне от 0 до 500 (значения элементов массива генерируются случайным образом и также выводятся на экран) 2 Составьте программу для нахождения наименьшего элемента массива, состоящего из двадцати элементов, значения которых изменяются в диапазоне от 0 до 200 (значения элементов массива генерируются случайным образом и также выводятся на экран) 3 Составьте программу для подсчёта количества элементов массива, делящихся на 3 Массив состоит из десяти элементов, значения которых изменяются в диапазоне от 0 до 100 (значения элементов массива генерируются случайным образом и также выводятся на экран) (используйте оператор mod – нахождение остатка от деления)

Answer 1

===== PascalABC.NET =====

begin

 // 1

 var a := ArrRandom(15, 0, 500);

 a.Println;

 Println('Сумма элементов равна', a.Sum);

 // 2

 var b := ArrRandom(20, 0, 200);

 b.Println;

 var i := b.IndexMin;

 Println('Наименьший элемент номер', i + 1,

     'имеет значение', b[i]);

 // 3

 var c := ArrRandom(10, 0, 100);

 c.Println;

 Println('Количество элементов кратных трем равно',

     c.Count(p -> p mod 3 = 0))

end.