Question

Даю 100 баллов
Помогите решить 2 задания по информатике. с кратким решением.
Задание №1
Одномерный массив на 10 элементов формируется через Random(50). Распечатать массив.
Вычислить средне-арифметическое элементов массива, которые попадают в интервал от 20 до 30.

Задание №2
Одномерный массив на 20 элементов формируется через Random(10). Распечатать массив.
Подсчитать количество элементов массива, значения которых совпадает с их номером (индексом).

Answer 1

                          PascalABC.NET                            

Задание 1:

• begin
• var a := ArrGen(10, c -> Random(50)).Println;
• Println(a.Where(c -> c in 10..20).Average(c -> c));
• end.

Задание 2:

• begin
• var a := ArrGen(20, c -> Random(10)).Println;
• Println(a.Where((c, i) -> c = i).Count);
• end.

Примеры работ: