uses crt;
var
num:array [1..10] of integer;
posme,posm,mayor,menor,x,i,j:integer;
begin
clrscr;
randomize();
mayor:=0;
for i:=1 to 10 do begin
x:=random(1000); {numeros aleatorios desde 0 hasta 1000}
num[i]:=x;
end;
for i:=1 to 10 do
write(num[i],' ');
writeln;
for i:=1 to 10 do begin
if num[i] > mayor then begin
mayor:=num[i];
posm:=i;
end;
end;
menor:=num[1];
for j:=2 to 10 do begin
if num[j] < menor then begin
menor:=num[j];
posme:=j;
end;
end;
writeln;
writeln('El mayor es ',mayor,' y esta en la posicion ',posm);
writeln('El menor es ',menor,' y esta en la posicion ',posme);
end.