pascal

program arreglos1;
uses
wincrt;
const
max=5 ;
var
i,num,may,men,pmay,pmen,quienes,quienva,cont:integer;
v: array [1..max]of integer;
BEGIN
randomize;
for i:= 1 to max do
BEGIN
REPEAT
num:=random (30)
UNTIL (num<>0);
v[i]:=num;
END;
writeln('Precione una tecla para ver los numeros aleatorios');
REPEAT UNTIL keypressed;
for i:=1 to max do
writeln(v[i]);
BEGIN
may:=v[i];
men:=v[i];
for i:=1 to max do
BEGIN
if v[i]>=may then
BEGIN
may:=v[i];
pmay:=i;
END
else
END;
writeln('el numero mayor es: ',may);
writeln('posicion: ',pmay);
for i:=1 to max do
BEGIN
if v[i]<=men then
BEGIN
men:=v[i];
pmen:=i;
END
else
END;
writeln('el numero menor es: ',men);
writeln('posición: ',pmen);
cont:=1;
while(cont<=max)do;
begin
quienes:=v[cont];
quienva:=cont;
for i:=1 to max do
begin
if i<>quienva then
if v[i]=quienes then
begin
writeln('se repite', v[i]);
writeln('su posicion', i);
end;
cont:=cont+1
end;
END
END
end.