Cod sursa(job #43062)

Utilizator gabitzish1Gabriel Bitis gabitzish1 Data 29 martie 2007 19:30:47
Problema Dezastru Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.56 kb
#include<fstream.h>
#include<iomanip.h>

int n, m;
float v[500], a[1000];

void citire()
{
  ifstream in("dezastru.in");
  in>>n>>m;
  for (int i=1; i<=n; i++)
    in>>v[i];
  in.close();
}

void calcul()
{
  int nr=1, i, j;
  float rez;
  for (i=1; i<=n; i++) nr*=i;
  int k=1;
  for (i=1; i<n; i++)
    for (j=i+1; j<=n; j++)
      a[k++]=v[i]*v[j];
  for (i=1; i<k; i++)
    rez+=a[i];
  rez=(rez*m)/nr;
  ofstream out("dezastru.out");
  out<<setw(4)<<rez;
  out.close();
}

int main()
{
  citire();
  calcul();
  return 0;
}