В одномерном массиве размером N определить среднее значение элементов. Найти индекс элемента массива наиболее близкого к среднему значению.(паскаль)

Ответ учителя по предмету Информатика

Const

K = 13;

Var

A:array[1..K] of integer;

i,n:integer;

Sr,d:real;

Begin

For i:= 1 to K do

    Begin

    A[i]:=random(21)-10;

    Write(A[i],’ ‘);

    Sr:=Sr+A[i];

    End;

WriteLn;

Sr:=Sr/K;

n:=1;

d:=abs(Sr-A[n]);

For i:= 2 to K do

    Begin

    if abs(A[i]-Sr)<d then

       Begin

       n:=i;

       d:=abs(Sr-A[n]);

       End;

    End;

WriteLn(‘Sr = ‘,Sr);

WriteLn(‘Номер ближайшего к среднему арифметическому: ‘,n);

End.