#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("lukujoukon pienimm„n ja suurimman luvun 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;
}

/* Etsit„„n ja palautetaan luvuista pienin luku                  */
int etsi_pienin(int luvut[],int lkm)
{
  int i,pienin;

  pienin= luvut[0];
  for( i=1; i<lkm; i++ )
    if (luvut[i]<pienin) pienin= luvut[i];

  return pienin;
}

/* Etsit„„n ja palautetaan luvuista suurin luku                  */
int etsi_suurin(int luvut[],int lkm)
{
  int i,suurin;

  suurin= luvut[0];
  for( i=1; i<lkm; i++ )
    if (luvut[i]>suurin) suurin= luvut[i];

  return suurin;
}

/* 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;

  printf("Lasken mik„ antamistasi kokonaisluvuista on l„hinn„\n");
  printf("lukujoukon pienimm„n ja suurimman luvun keskiarvoa.\n");
  printf("Anna kokonaisluvut (viimeisen j„lkeen kirjoita LOPPU)\n");

  if ( (lkm = lue_luvut(luvut)) == 0 ) return 1;

  ka = (etsi_pienin(luvut,lkm)+etsi_suurin(luvut,lkm))/2;
  lahin_paikka = etsi_lahin(luvut,lkm,ka);

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

  return 0;
}