Begin Writeln('See programm leiab arvujada suurima väärtuse.') Write('Palun sisesta jada pikkus : '); Read(N); For i := 1 to N do { küsime N arvu } begin Write('Palun sisesta jada ',i,'. elemendi väärtus : '); Read(Jada[i]); end; Write('Tänan! Otsin suurimat väärtust ...'); Max := Jada[1]; { alguses võtan suurimaks esimese väärtuse } For i := 2 to N do { kontrollin kõiki jadaliikmeid } if Jada[i] > Max then { kas ei ole suurimast väärtusest suuremaid} Max := Jada[i]; { kui on, siis jätan meelde } Writeln; Writeln('Jada suurim väärtus on ', Max); End. { P r o g r a m m i l õ p p } Nagu näha, saab iga jadaliiget töödelda samade lausetega. Korduslause abiga tagab programmeerija massiivi indeksi muutumise nii, et järjest vaadeldakse kõiki jadaliikmeid. Tulemuste hoidmiseks kasutatakse harilikke muutujaid, antud juhul muutujat 'Max'.
Begin Writeln('See programm leiab arvujada suurima väärtuse.') Write('Palun sisesta jada pikkus : '); Read(N); For i := 1 to N do { küsime N arvu } begin Write('Palun sisesta jada ',i,'. elemendi väärtus : '); Read(Jada[i]); end; Write('Tänan! Otsin suurimat väärtust ...'); Max := Jada[1]; {alguses võtan suurimaks esimese väärtuse } For i := 2 to N do { kontrollin kõiki jadaliikmeid } if Jada[i] > Max then {kas ei ole suurimast väärtusest suuremaid} Max := Jada[i]; { kui on, siis jätan meelde } Writeln; Writeln('Jada suurim väärtus on ', Max); End. { P r o g r a m m i l õ p p } Nagu näha, saab iga jadaliiget töödelda samade lausetega. Korduslause abiga tagab programmeerija massiivi indeksi muutumise nii, et järjest vaadeldakse kõiki jadaliikmeid. Tulemuste hoidmiseks kasutatakse harilikke muutujaid, antud juhul muutujat 'Max'. Näide 2.
annaabi.ee 
