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