Maksimum z n liczb- Pascal

[zzuzzia93]

Mam zrobić program obliczjacy maksimum z n liczb. Realizacja obliczeń ma się odbyć z wykorzystaniem funkcji. A ja mam tylko taki program na minimum z n liczb, który wygląda tak:

Kod: Zaznacz cały

program T10_p4;
uses Crt;
var
L_El,Min:integer;
znak:char;

function Min1(n:integer):integer;
var
i,x,min_x:integer;
begin
min_x:=MaxInt;      { Najwieksza mozliwa liczba typu integer}
for i:=1 to n do
               begin
                Write('Podaj liczbe ',i,': '); ReadLn(x);
                if x<min_x then
                          min_x:=x;
               end;
               Min1:=min_x;
end;

function Min2(n:integer):integer;
var
i,x,min_x:integer;
begin
for i:=1 to n do
                begin
                 Write('Podaj liczbe ',i,': '); ReadLn(x);
       if i=1 then
         min_x:=x
              else
         if x<min_x then
              min_x:=x;
           end;
           Min2:=min_x;
end;

begin
repeat
   ClrScr;
   Write('Podaj liczbe elementow: '); ReadLn(L_El);
   WriteLn('Podaj elementy:');
   Min:=Min1(L_El);
   WriteLn('Minimum z ',L_El,' elementow to ',Min);
   WriteLn('Podaj elementy:');
   Min:=Min2(L_El);
   WriteLn('Minimum z ',L_El,' elementow to ',Min);
Write('Czy chcesz kontynuowac T/N? '); ReadLn(znak);
Until(Upcase(znak)='N');
end.

Co muszę w tym programie zmienić, aby uzyskać program na MAKSIMUM z n liczb?
Proszę o szybką pomoc...

[Afish]

A wiesz, w jaki sposób ten kod działa? Iterujesz po tablicy i każdy element sprawdzasz z aktualnym minimum. Jeżeli element jest mniejszy, to staje się nowym minimum, w przeciwnym wypadku nic się nie dzieje. Jak teraz zmienić ten kod, aby wyszukiwać maksimum?

[zzuzzia93]

Pan nam powiedział, że w tym programie wystarczy zmienić tylko 1 rzecz, aby zrobić z tego program na maksimum z n liczb. Nie wiem, gdzie to ma być...

[Afish]

Mógłbym napisać jeszcze raz swój poprzedni post, ale chyba nie ma potrzeby. Przeczytaj go jeszcze raz, szczególnie pierwsze zdanie tego postu. I odpowiedz na zadane pytanie.