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

Program zadacha;vars: array[1..20] of real;max,sr: real;i,n: integer;
beginwriteln(enter numbers);for i:=1 to 20 do read(s[i]);max:=s[1];for i:=2 to 5 do beginif s[i]gt;max then max:=s[i];end;sr:=0;n:=0;for i:=12 to 20 do beginsr:=sr+s[i]; inc(n);end;sr:=sr/n;for i:=1 to 20 do beginif s[i]gt;sr then s[i]:=max;end;
writeln(max 1-5 = ,max);writeln(sr 12-20 = ,sr:8:2);for i:=1 to 20 do write(s[i]:8:2);end.