CARA MENGETAHUI MAKS DAN MINIMUM DATA

Uses crt;

Var     a : array[1..5] of integer;
    j,k, temp : integer;

begin
    clrscr;
    write(‘masukan angka pertama = ‘);readln(a[1]);
    write(‘masukan angka ke-dua = ‘);readln(a[2]);
    write(‘masukan angka ke-tiga = ‘);readln(a[3]);
    write(‘masukan angka ke-empat = ‘);readln(a[4]);
    write(‘masukan angka ke-lima = ‘);readln(a[5]);
    for k:=1 to 5-1 do
    begin
        for j:=5 downto k+1 do
        begin
            if a[j] < a[j-1]then
            begin
                temp := a[j];
                a[j] := a[j-1];
                a[j-1] := temp;
            end;
        end;
    end;
    writeln;
    writeln(‘nilai maksimal dan minimum’);
    writeln(‘maksimum = ‘,a[5]);
    writeln(‘manimum = ‘,a[1]);
    readln;
end.