Przykład 4 - Minimum i maksimum (w tablicy)
program min_max;
// Algorytm
// Minimum i maksimum (w tablicy)
// 1.Ustalenie ilości ocen "n".
// 2.Wczytanie do tablicy kolejnej oceny
// 3.Powtórzenie punktu 2 "n" razy.
// 4. Znalezienie najlepszej oceny.
// 4.A. Ustalenie pierwszej jako max (najlepsza)
// 4.B. Porównanie od drugiej do "n-tej" oceny z najgorszą.
// 4.C.Jeżekli kolejna ocena mniejsza od MIN, to zamiana.
// 5. Znalezienie najgorszej oceny.
// 6.Obliczenie średniej z wczytanych ocen.
// Kod programu
{$apptype console}
uses
sysutils;
Var a: array [1..10] of integer;
i, w, max, min, s, l, k :integer;
srednia :Real;
Begin
Writeln (' Witaj w programie pt. ,,Zabawy z tabela ocen."');
Writeln;
Writeln;
Repeat
Write ('Podaj ilosc ocen=> (1:10) ');
Readln (w);
Until (w>0) and (w<=10);
For i:=1 to w do
Repeat
Write ('Podaj ocene [',i,'] => ');
Readln ( A[i] )
Until( A[i]>1) and( A[i]<=6);
max:=A[1];
For i:=2 to w do
IF A[i] > max THEN max := A[i];
Writeln;
Writeln ('Twoja najlepsza ocena jest : ',max);
l:=0;
For i:=1 to w do
IF A[i] = max THEN l:=l+1;
Writeln ('Masz ',l,' ocen najwyzszych.');
min:= A[1];
For i:=2 to w do
IF A[i] < min THEN min := A[i];
Writeln;
Writeln ('Twoja najgorsza ocena jest : ',min);
k:=0;
For i:=1to w do
IF A[i]=min THEN k:=k+1;
Writeln ('Masz ',k,' ocen najgorszych.');
s:=0;
For i:=1 to w do
s := s + A[i];
srednia := s/w;
Writeln;
writeln ('A Twoja srednia ocen to:',srednia:7:2);
IF srednia>=4 THEN writeln (' GRATULACJE!!!!!')
ELSE writeln (' MUSISZ SIE¨ WIECEJ UCZYC!!!!!!');
writeln;
write ('Program napisal Bezimienny Student.');
readln;
end.