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.
Ответ:
Объяснение:
Обе задачки сведем в одну программу.
Листинг и результат работы:
1600*4 1200*4 вот дальше сам.................