B1: nhập dãy;

B2: max←a[1]; min←a[1];

B3: i←i+1;

B4:

    b4.1: nếu a[i]>max thì: max←a[i]; v1←i;

    b4.2: nếu a[i]<min thì: min←a[i]; v2←i;

B5: nếu i<=n thì quay lại B3;

B6: thông báo kết quả và kết thúc thuật toán.

.

uses crt;
var a:array[1..500]of integer;
    n,i,v1,v2,max,min:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    for i:=1 to n do
    begin
        write('a[',i,'] = ');readln(a[i]);
    end;
    max:=a[1]; min:=a[1];
    for i:=1 to n do
    begin
        if a[i]>max then
        begin
            max:=a[i]; v1:=i;
        end;
        if a[i]<min then
        begin
            min:=a[i]; v2:=i;
        end;
    end;
    writeln('max: ',max,', vi tri: ',v1);
    write('min: ',min,', vi tri: ',v2);
    readln
End.