Помогите пожалуйста! Задача по информатике в программе Pascal (11класс) В целочисленном массиве из 15 элементов, заданным случай
Помогите пожалуйста! Задача по информатике в программе Pascal (11класс) В целочисленном массиве из 15 элементов, заданным случайным образом найти: • среднее арифметическое элементов кратных 5; • количество чисел больших 11; • вставить элемент на 5 место, равный мумие элементов изходного массива; • ввести новый массив.
Begin var ar:=arrrandom(15,0,50); write('Массив: '); ar.Println; writeln('Среднее арифметическое элементов кратных 5: ',ar.Where(x->x mod 5=0).Average); writeln('Количество чисел больших 11: ',ar.Where(x->x>11).Count); ar[5]:=ar.Sum; write('Новый массив: '); ar.Print; end.