Program sredarifment;

[email protected] в категроии Информатика, вопрос открыт 18.10.2017 в 16:19

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.
Помогите пожалуйста чтобы программа запустилась