Tömb feltöltése n darab bekért számmal, és ezek közül a legnagyobb elem kiválasztása (Maximum.pas) program Maximum; uses crt; var i,n,max:integer; a:array [1..10] of integer; BEGIN write ('n:='); readln(n); Bekérjük a tömbelemek számát, amely nem lehet nagyobb 10-nél, mivel az a tömb 10 eleműnek lett deklarálva. i:=1; while (i<=n) do begin A ciklus segítségével feltöltjük a tömböt. write ('a[',i,']:='); readln (a[i]); Beolvassuk az a tömb i-edik elemét. i:=i+1; end; max:=a[1]; A fent egész számnak deklarált max változóba beletesszük az a tömb 1. elemének értékét. i:=2; while (i<=n) do begin if(max<a[i]) then begin max:=a[i]; Amennyiben a max változó értékénél nagyobb értékű tömbelemet találunk, azt beletesszük a max-ba. end; i:=i+1; end; writeln('A legnagyobb szam= ',max); END.