|
Identification Division.
Program-Id. max3.
Environment Division.
Input-Output Section.
Data Division.
Working-Storage Section.
78 n pic S9(8) value 100.
77 i pic S9(8).
77 mx pic S9(8).
Linkage Section.
77 a pic S9(8) occurs n.
Procedure Division using a.
move 1 to i
move a(i) to mx.
perform until i = length of a
if mx < a(i+1) move a(i+1) to mx end-if
add 1 to i
end-perform
display "Max(a)=" mx
End-Program max3.
¤ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
