Введите с клавиатуры одномерный массив S(K), элементами которого являются положительные и отрицательные числа. Найдите среднее арифметическое значение среди последних 9-ти элементов массива, максимум среди первых 5-ти элементов. Замените в массиве все элементы, которые больше найденного среднего арифметического - на максимум.

 Решение на Free Pascal IDE 2.6.0

var s:array[1..15] of integer; k,max,arf:integer;begin max:=0;for k:=1 to 15 doread(s[k]);for k:=1 to 5 doif s[k]>max then max:=s[k];for k:=7 to 15 doarf:=arf+k;arf:=round(arf/9);for k:=1 to 15 doif s[k]>arf then s[k]:=max;for k:=1 to 15 dowriteln('s[',k,']= ',s[k]);Writeln('Srednee arifmeticheskoe = ',arf);writeln('Max = ',max);readln; readln;end.C