- In ra phần tử lớn nhất và nhỏ nhất
var a:array[1..100] of integer;
i,k,n:integer; 
begin 
readln(n); k:=0; 
for i:=1 to n do begin 
readln(a[i]); 
if a[i]>k then k:=a[i]; 
end; 
writeln(k); 
for i:=1 to n do if a[i]=k then write(i,#32); 
readln 
end.

In ra phần tử lớn nhất và nhỏ nhất
var a:array[1..100] of integer;
i,k,n:integer; 
begin 
readln(n); k:=0; 
for i:=1 to n do begin 
readln(a[i]); 
if a[i]>k then k:=a[i]; 
end; 
writeln(k); 
for i:=1 to n do if a[i]=k then write(i,#32); 
readln 
end.

n ra số lớn nhất thì mình nghĩ có cách này :/ 
program abc; 
uses crt; 
var a,b,c,dmax : integer; 
begin 
clrscr; 
write ( ' nhap a =' ); 
readln (a); 
write ( ' nhap b = '); 
readln (b); 
write ( ' nhap c =' ); 
readln (c); 
write ( ' nhap d = ' ); 
readln (d); 
a:=max; 
if max<b then max:=b; 
if max<c then max :=c; 
if max<d then max :=d; 
write ( ' so lon nhat la',max); 
readln; 
end.

in dãy số ra màn hình
Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2}
Var A:Mang1C; {Đặt tên mảng là A}
i:integer;
Begin
        clrscr;
        Writeln('Nhap gia tri cho mang A');
        For i:=1 to 10 do 
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]); { đọc vào giá trị cho A thứ i}
        End;
        Write('Danh sach cac phan tu trong mang A: ');
        For i:=1 to 10 do
                Write(A[i]:5);
        Readln;
End.

DORAEMON thứ tự phần tử lớn nhất nhé. VD khi nhập
1. 3
2. 19
3. 15
4. 2
thì nó sẽ in ra số thứ 2 la so lon nhat

program abc; 
uses crt; 
var a,b,c,dmax : integer; 
begin 
clrscr; 
write ( ' nhap a =' ); 
readln (a); 
write ( ' nhap b = '); 
readln (b); 
write ( ' nhap c =' ); 
readln (c); 
write ( ' nhap d = ' ); 
readln (d); 
a:=max; 
if max<b then max:=b; 
if max<c then max :=c; 
if max<d then max :=d; 
write ( ' so lon nhat la',max); 
readln; 
end.