Question

 
исправьте пожалуйста программу

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. 

Answer 1

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.

Answer 2

Эникей

Answer 3

помоги пожалуйста

Answer 4

43

Answer 5

балла