Помогите решить задачу по информатике на языке Паскаля! Срочно!

Question

Вычислить среднее арифметическое чисел K,K+1,K+2,...K+N; 
(K

Александр Сухарев · Accepted Answer

Ты издеваешься? 
 
function Fuck(n: array of Integer): Integer; 
var 
 k: Integer; 
begin 
 Result:=0; 
 for k:=0 to length(n)-1 do 
 begin 
 Result:=Result+n[k]; 
 end; 
 Result:=Round(Result/length(n)); 
end; 
 
Среднее арифметическое это сумма всех элементов делённая на их кол-во.