na pewno ma być naj=l[1] ?? chyba coś w rodzaju naj=l[i]
Drugi problem to dlaczego pierwsza pętla po obliczeniu średniej jest zawsze taką samą razy wykonywana - przecież liczb w tablicy może być więcej
Ja to zadani mam tak mniej więcej zrobione :
Dane <- tablica z liczbami
po wczytaniu wiersza i obliczeni średniej ustawiam zmienną
Dis = Infinity ; // Dis od dystans
For Loop=1 to IleDane do Begin
If Dis>Abs(Srednia - Dane[ Loop ]) Then Begin
// tu ustawiam nowa wartość Dis i zapamiętuje aktualna wartść zmiennej Loop
End;
End;