BriseManjeOdArtSred

PROCEDURE AvgLista(lista:brojevi):REAL;
VAR temp:brojevi;
    sum,i:INTEGER;
    sredina:REAL;
BEGIN
  IF lista=NIL THEN
    WriteString('prazna lista.'); WriteLn;
  ELSE
    sum:=0;
    i:=0;
    temp:=lista;
    WHILE temp # NIL DO
      sum:=sum+temp^.info;
      INC(i);
      temp:=temp^.veza;
    END;
  END;
  sredina:= FLOAT(sum) / FLOAT(i);
  RETURN sredina;
END AvgLista;

PROCEDURE ManjeAvg(VAR lista:brojevi; avg:REAL);
VAR temp,prethodni:brojevi;
BEGIN
  WHILE (lista#NIL) AND (FLOAT(lista^.info)<=avg) DO
    temp:=lista;
    lista:=lista^.veza;
    DISPOSE(temp);
  END;
  IF lista#NIL THEN
    temp:=lista;
    WHILE temp^.veza#NIL DO
      prethodni:=temp;
      temp:=temp^.veza;
      IF (FLOAT(temp^.info) <= avg) THEN
        prethodni^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=prethodni;
      END;
    END;
  END;
END ManjeAvg;