uses crt;
var c: array [1..100] of real;
     n, i: integer;
     k: real;
begin
writeln("Введите размерность массива");
readln(n);
writeln("Введите элементы массива");
for i:=1 to n do
readln(c[i]);
writeln("Введите значение параметра k");
read(k);
for i:=1 to n do
if c[i]>k then writeln(i," элемент массива имеет значение ", c[i]);
readkey
end.

uses crt;
var a: array [1..100] of integer;
     n, i, s,tw,fi: integer;
begin
writeln("Введите размерность массива");
readln(n);
writeln("Введите элементы массива");
for i:=1 to n do
readln(a[i]);
 tw:=a[2];
fi:=a[5];
s:=tw+fi; //можно обойтись и без этой переменной, но ввел ее для наглядности
writeln("Второй элемент равен ", tw, " Пятый элемент равен ", fi, " Сумма второго и пятого элементов равна ",s);
writeln("Массив до замены имеет вид:")
for i:=1 to n do 
write(a[i]:6);
writeln("Массив после замены имеет вид:")
for i:=1 to n do begin
if (a[i]>tw) and (a[i]<fi) then a[i]:=s;
write(a[i]:6); end;
readkey
end.