1:
uses crt;
var a,duong:array[1..100]of integer;
dem,i,n,dvt,sc:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly------------------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then
begin
inc(dem);
duong[dem]:=a[i];
end;
sc:=duong[dem];
for i:=1 to n do
if sc=a[i] then write(i:4);
readln;
end.
2:
uses crt;
var a,am,vt:array[1..100]of integer;
dem,i,n,ln,j,dvt:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly------------------------------}
dem:=0;
dvt:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem);
am[dem]:=a[i];
end;
ln:=am[1];
for i:=1 to dem do
if ln<am[i] then ln:=am[i];
for i:=1 to n do
if ln=a[i] then
begin
inc(dvt);
vt[dvt]:=i;
end;
writeln('so hang am lon nhat cua day la: ',ln,' va chi so cua no trong day lan luot la: ');
for j:=1 to dvt do
write(vt[j]:4);
readln;
end.
