Исправьте программу program sredarifment; var a: array[1..10] of real; i, k: integer; c, s, sred: real; begin for i: =1 to 10 do begin write ('a[',i,']='); readln (a[i]); end; write('введите c: '); readln (c); for i: =1 to 10 do begin if a[i]> c then begin s=s+a[i]; k=k+1; end; end; sred=s/k; writeln('среднее арифметическое чисел, превосходящих ',c,' равно ',sred); end.

Program sredarifment;

var
  a: array[1..10] of real;
  i, k: integer;
  C, S, sred: real;

begin
  for i := 1 to 10 do
  begin
    write('a[', i, ']=');readln(a[i]);
  end;
  write('введите C: ');readln(C);
  for i := 1 to 10 do
  begin
    if a[i] > C then
    begin S := S + a[i];K := K + 1; end;
  end;
  sred := S / k;
  Writeln('среднее арифметическое чисел, превосходящих ', C, ' равно ', sred);
end.