Program a7_91;
uses crt;
const n=10;
var a:array[1..n] of integer;
i,j,max,min,n1,n2:integer;
BEGIN
clrscr;
randomize;
max:=a[1];
writeln(' Массив А');
for i:=1 to n do
begin
a[i]:=random(9)+1;
write(a[i]:3);
if a[i]>=max then
begin
max:=a[i];
n1:=i;
end;
end;
writeln;
min:=a[n];
for i:=n downto 1 do
if a[i]<=min then
begin
min:=a[i];
n2:=i;
end;
if n2>n1 then
begin
for i:=n1+1 to n2-1 do
a[i]:=0;
end
else
for i:=n2+1 to n1-1 do
a[i]:=0;
writeln(' Новый массив');
for i:=1 to n do
write(a[i]:3);
writeln;
writeln('max ',n1,' min ',n2);
readln;
END.