#include <stdlib.h>
#include <stdio.h>
#include <math.h>

#define MAX_LUKUJA 100

typedef int Taulukko_tyyppi[MAX_LUKUJA];

void ohjeet(void)
{
  printf("Lasken mik„ antamistasi kokonaisluvuista on l„hinn„\n");
  printf("lukujen keskiarvoa.\n");
  printf("Anna kokonaisluvut (viimeisen j„lkeen kirjoita LOPPU)\n");
}

int lue_luvut(int luvut[])
/* Luetaan luvut ja palautetaan luettujen lukujen lkm.  Mik„li */
/* ei sy”tet„ yht„„n lukua laitetaan silti luvut[0]=0          */
{
  int i=0; luvut[0]=0;
  do {
    printf("Anna %d. luku>",i+1);
    if ( !scanf("%d",&luvut[i]) ) return i;
    i++;
  } while (i<MAX_LUKUJA);
  return i;
}

double laske_keskiarvo(int luvut[],int lkm)
/* Lasketaan lukujen keskiarvo.  Mik„li ei lukuja, palautetaan 0      */
{
  double summa=0; 
  int i;
  if ( lkm <= 0 ) return 0;
  for (i=0; i<lkm; i++) summa+=luvut[i];
  return summa/lkm;
}

/* Etsit„„n ja palautetaan luvuista sen indeksi, joka on l„hinn„ */
/* annettua lukua. Mik„li lukuja ei ole, palautetaan 0.          */
int etsi_lahin(int luvut[],int lkm,double luku)
{
  double ero,lahin_ero;
  int i,lahin_i=0;
  lahin_ero = fabs(luvut[0]-luku);
  for (i=1; i<lkm; i++) {
    ero = fabs(luvut[i]-luku);
    if ( ero < lahin_ero ) { 
      lahin_ero = ero;
      lahin_i   = i;
    }
  }
  return lahin_i;
}

int main(void)
{
  Taulukko_tyyppi luvut; int lkm,lahin_paikka;
  double ka;

  ohjeet();
  if ( (lkm = lue_luvut(luvut)) == 0 ) return 1;
  ka = laske_keskiarvo(luvut,lkm);
  lahin_paikka = etsi_lahin(luvut,lkm,ka);

  printf("Lukujen keskiarvo oli %5.2lf ja sit„ l„hin luku oli %d.\n",
          ka,luvut[lahin_paikka]);


  return 0;
}