Поделитесь своими знаниями, ответьте на вопрос:
1 составьте программу для вычисления суммы массива, состоящего из пятнадцати элементов, значения которых изменяются в диапазоне от 0 до 500 (значения элементов массива генерируются случайным образом и также выводятся на экран) 2 составьте программу для нахождения наименьшего элемента массива, состоящего из двадцати элементов, значения которых изменяются в диапазоне от 0 до 200 (значения элементов массива генерируются случайным образом и также выводятся на экран) 3 составьте программу для подсчёта количества элементов массива, делящихся на 3 массив состоит из десяти элементов, значения которых изменяются в диапазоне от 0 до 100 (значения элементов массива генерируются случайным образом и также выводятся на экран) (используйте оператор mod – нахождение остатка от деления)
===== 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.