identification division. data division. working-storage section. 01 cnt pic 99 value 12. 01 table. 02 monats-summe pic 9(5)v99 occurs 1 to 12 depending cnt indexed i. procedure division. display 'Summen-Funktionen' display ' ' display 'Die Summe von 12, 38 und 17 ist ' function sum(12 38 17). display ' '. set i to 1. move function random (123) to monats-summe (i). loop. compute monats-summe (i) = function random() * i * 100. display 'monats-summe (' i ') = ' monats-summe (i). set i up by 1. if i < 13 go to loop. display 'Die Summe über alle Monate ist ' function sum (monats-summe(all)). move 6 to cnt. display 'Die Summe bis Juli ist ' function sum (monats-summe(all)). move 12 to cnt. display 'Der Minimallwert ist ' function min(monats-summe(all)) ' der Maximalwert ist ' function max(monats-summe(all)). display 'Der Minimalwert ist an Stelle ' function ord-min(monats-summe(all)) ' der Maximalwert ist an Stelle ' function ord-max(monats-summe(all)). display 'Der Differenz zwischen min und max beträgt ' function midrange(monats-summe(all)). display 'Der Mittelwert beträgt ' function mean(monats-summe(all)) ' der Median ist ' function median(monats-summe(all)). display 'Die Varianz beträgt ' function variance(monats-summe(all)) ' die Standard-Abweichung beträgt ' function standard-deviation(monats-summe(all)). call getchar.