Пожалуйста!!!!

Элементы, не превышающие 15, заменить средним арифметическим всех элемента массива.

мне уж неудобно просить, но вы можете, пожалуйста посмотреть еще одну задачу?

Если очередной элемент массива чётный, то прибавить к нему первый элемент, если нечетный, то прибавить последний элемент массива. Первый ипоследний элемент не изменяется.

ок

сейчас просмотрю

вот как ее решать?

const n=10;var a:array[1..n] of integer;s,sr,i:integer;beginwriteln('vvedite massiv=');for i := 1 to n doreadln(a[i]);s:=0;for i := 1 to n do begins:=s+a[i];sr:=s/n;end;for i := 1 to n do if a[i]>15 then a[i]:=sr;writeln('noviy=');for i :=1 to n do write(a[i]:4);readln;end.