Пол кода удаляется, могу только скриншот кинуть
Ну во-первых <span>max:=a[1]; нужно задать после того как массив готов!
а вместо этого
</span>for i:=(1+b) to (n+b) do
begin
if a[i] = max then begin
a[i+1]:=a[i];
a[i]:=-5;
b:=b+1;
end
else
a[i]:=a[i+b];
<span>end;
</span>Попробуй это
b:=-50; for i:=1 to n do<span> if a[i]:=max then a[i]:=a[i]+b;</span>
Var
i,n,k:integer;
t,s,c:real;
begin
Write('c='); Read(c);
Write('Количество чисел: '); Read(n);
s:=0; k:=0;
Write('Вводите: ');
for i:=1 to n do begin
Read(t);
if t>c then begin
s:=s+t;
k:=k+1
end
end;
if k>0 then Writeln('Среднее арифметическое: ',c/k)
else Writeln('Нет чисел, превышающих ',c)
end.
Пример
c=18.5
Количество чисел: 10
Вводите: 12.4 15 8.6 -4.12 0 17.34 21 0.12 21.15 19
Среднее арифметическое: 6.16666666666667