Pascali põhitõed
begin
writeln('Sisesta ' , i , '. element: ');
readln(mas[ i ]);
end;
end; (* Protseduuri lõpp *);
function MaxEl(massiiv : array [1..10] of integer; arv : integer ) :
integer;
(* erinevalt eelmisest protseduurist on see funktsioon programmist *)
(* sõltumatu - teda võib samal kujul kasutada ka teises programmis *)
var i,suurim : integer;
begin
suurim := 0;
for i := 1 to n do
if massiiv [ i ] >suurim then
suurim := massiiv [ i ];
MaxEl := suurim ; (* Lõpuks omistame leitud arvu f-ninimele *)
end;
procedure Väljasta;
var i, suurim : integer;
begin
writeln('Massiiv oli : ');
for i := 1 to n do
write (mas [ i ] : 6 );
writeln;
suurim := MaxEl (mas);
writeln(' Maksimaalne element oli ', suurim : 4 );
end;
NB! Kui üks alamprogramm kasutab teist, peab teine alamprogramm olema
deklareeritud esimesest eespool.
PROOVIGE ISE:
Kirjutage protseduur ja funktsioon (programmist sõltumatud), mis
sisestavad tabeli (näit, 4 x 4) ja leiavad selle maksimaalse ja
minimaalse elemendi.
5
annaabi.ee 
