Выделить всё
program untitled;
var A:array[1..10] of real;
x, s:real;
i:integer;
BEGIN
write ('Введите x:');
read (x);
s:=0;
for i:=1 to 10 do
begin
read (A[i]);
s := s + A[i];
end;
s := s/10;
for i:=1 to 10 do
begin
if A[i] < x then A[i] := s;
end;
END.