const n=10;
var a:array [1..n] of integer;
i,imax,imin,max,min:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
max:=0;
min:=a[1];
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
if a[i]begin
min:=a[i];
imin:=i;
end;
end;
writeln('Самый дорогой товар = ',max);
writeln('Индекс = ',imax);
writeln('Самый дешевый = ',min);
writeln('Индекс = ',imin);
end.