# Gewinnermittlung

## Problembeschreibung

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

Gegeben sind Listen mit Kosten und Erlösen.
Der Gesamtgewinn ist zu bestimmen.

## Problemlösung

EINGABE

kosten:read("Gib die Liste mit den Kosten ein");

erloes:read("Gib die Liste mit den Erlösen ein");

VERARBEITUNG

n:length(kosten);

gewinn:makelist(erloes[i]-kosten[i],i,1,n);

gesamt:sum(gewinn[i],i,1,n);

AUSGABE

print("Gesamtgewinn",gesamt)$