Введите с клавиатуры...

Введите с клавиатуры одномерный массив 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 do
read(s[k]);

for k:=1 to 5 do
if s[k]>max then max:=s[k];

for k:=7 to 15 do
arf:=arf+k;

arf:=round(arf/9);
for k:=1 to 15 do
if s[k]>arf then s[k]:=max;

for k:=1 to 15 do
writeln('s[',k,']= ',s[k]);
Writeln('Srednee arifmeticheskoe = ',arf);
writeln('Max = ',max);
readln; readln;
end.C