Tìm GTLN trong dãy số nguyên. Gợi ý: - Giả sử số phần tử không vượt quá 100 kí tự. - Sd khai báo trực tiếp. - Gán giá trị lớn nhất cho phần tử đầu tiên của dãy. - Sd vòng lọc để duyệt từ phần tử 1 đến phần tử n để tìm ra phần tử lớn nhất của dãy. - Kq phải tìm được giá trị của max và vị trí của max trong dãy.

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,max,vitri: integer;
begin
        clrscr;
        write('nhap so n: '); readln(n);
        for i:=1 to n do
                begin
                        write('a[',i,']: ');
                        readln(a[i]);
                end;
        max:=a[1]; vitri:=1;
        for i:=2 to n do
                if a[i]>max then
                        begin
                                max:=a[i];
                                vitri:=i;
                        end;
        writeln('Max: ',max);
        writeln('vi tri cua Max: ',vitri);
        readln;
end.