Ответьте пожалуйста на вопрос!!!! Дам 10 баллов
Задача 2. Написать программу, которая вводит последовательность чисел от 1 до n (n задавать в программе), выводить
1) сумму этих чисел,
2) произведение,
3) количество чисел кратных 2 и 3,
4) среднее арифметическое ряда, округлив до десятых.
Задача 3. Вводить в массив 10 случайных чисел (числа в промежутке от -50 до 50). Выводить массив. Находить максимальный элемент массива и считать сумму чисел кратных 2 и 3.
Answers & Comments
Ответ:
PascalABC.NET 3.5.1 + .NET Framework 4.7.1
#1
begin
var n := ReadInteger();
var a := Range(1, n);
//Sum
a.Sum.Println;
//произведение
a.Aggregate(BigInteger.One, (p, q) -> p * q).Println;
//Кол-во кратных 2 и 3
a.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Count.Println;
//Среднее ряда
a.Average.Round.Println
end.
#2
begin
var A := ReadArrInteger(10);
A.Println;
//максимум
A.Max.Println;
//Сумма кратных 2 и 3
A.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Sum.Println
end.
Но все равно спасибо