# Durchschnittsrechung

## Problembeschreibung

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

Gegeben ist eine Liste von Lieferungen mit Angabe von
Menge und Einzelpreis. Der Durchschnittspreis ist gesucht.

## Problemlösung

EINGABE

lieferungen:read("Gib eine Liste aus Lieferungen (Menge,Einzelpreis) ein");

VERARBEITUNG

n:length(lieferungen);

durchschnittlicher_Einzelpreis:sum(lieferungen[k][1]*lieferungen[k][2],k,1,n)/
sum(lieferungen[k][1],k,1,n);

durchschnittlicher_Einzelpreis:durchschnittlicher_Einzelpreis,numer;

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

AUSGABE

print("Durchschnittspreis =",durchschnittlicher_Einzelpreis)$