# Quader: minimales und maximales Volumen

## Problembeschreibung

******************************************
Dokumentnummer: D1013
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************

In einer Quaderliste soll man das kleinste und größte
Volumen feststellen

## Problemlösung

EINGABE

quader:read("Gib eine Liste von Quadern ein in []");

VERARBEITUNG

n:length(quader);

for i:1 thru n do
     V[i]:prod(quader[i][j],j,1,3)$

volumen:makelist(V[i],i,1,n);

svolumen:sort(volumen);

minimum:svolumen[1];

maximum:svolumen[n];

for i:1 thru n do
      if volumen[i]=minimum
         then posmin:i$

for i:1 thru n do
     if volumen[i]=maximum
        then posmax:i$

AUSGABE

print("Position des minimalen Volumens =",posmin)$

print("Position des maximalen Volumens =",posmax)$