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. Ü l e s a n n e: Kirjutada programm, mis teisendab etteantud tekstifailis olevad pseudo-täpitähed ASCII 437 (või ANSI) kooditabeli vastavateks täpitähtedeks. Pseudotäpitähed on o~, a", o", u", O~, A", O", U".
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'.
Sama programm keeles C :
/* P r o g r a m m i a l g u s */
#include
annaabi.ee 
