Code: Alles auswählen.
TYPES: BEGIN OF test,
erste TYPE i,
zweite TYPE i,
dritte TYPE i,
end of test.
Data: itab TYPE Standard table of test,
warea TYPE test,
gros TYPE i,
klein TYPE i.
klein = 100.
gros = -10.
warea-erste = 23.
warea-zweite = 67.
warea-dritte = 45.
DO 3 TIMES.
if warea-erste < klein.
klein = warea-erste.
elseif warea-erste > gros.
gros = warea-erste.
elseif warea-zweite > gros.
gros = warea-zweite.
elseif warea-zweite < klein.
klein = warea-zweite.
elseif warea-dritte > gros.
gros = warea-dritte.
elseif warea-dritte < klein.
klein = warea-dritte.
endif.
ENDDO.
write:/ gros , 'ist die groesste Zahl'.
write:/ klein , 'ist die kleinste Zahl'.