# Durchschnittlicher Fertigungslohn

## Problembeschreibung

******************************************
Dokumentnummer: D1050
Quelle: Johann Weilharter,
             Wirtschaftsrechnen
******************************************

Gegeben ist eine Liste mit Fertigungslöhnen
(Stunden, FL/Stunde). Der durchschnittliche 
Fertigungslohn/Stunde ist zu ermitteln.

## Problemlösung

EINGABE

fl:read("Liste [Stunden,GE]");

VERARBEITUNG

n:length(fl);

dfl:sum(fl[i][1]*fl[i][2],i,1,n)/sum(fl[i][1],i,1,n);

dfl:dfl,numer;

dfl:floor(dfl*100+0.5)/100.0;

AUSGABE

print("Der durchschnittliche Fertigungslohn pro Stunde ist",dfl,"€uro")$