Как в паскале поменять местами максимальный элемент с восьмым в массиве?

[gylayko]

Массив я создал, максимальный элемент нашел, нашел и минимальный, вывел их, но их нужно расположить посредине рядом, как это сделать?
Вот то, что у меня уже есть:

uses crt;
var B:array[1..16] of integer; j,i,max,min:integer;
begin
clrscr;
randomize;
for i:=1 to 16 do B[i]:=random(100);
write('* начальный массив');
for i:=1 to 16 do write(' ',B[i]);
min:=B[1];
for i:=2 to 16 do
  begin
    if B[i]<min then min:=B[i];
  end;
max:=B[16];
for i:=1 to 15 do
  begin
    if B[i]>max then max:=B[i];
  end;
writeln;
writeln('max=',max,' min=',min);
readln;
end.

Помогите пожалуйста!

[IT-man]

min:=1;
for i:=2 to 16 do
  begin
    if B[i]<B[min] then min:=i;
  end;
tmp:=b[min];
b[min]:=b[8];
b[8]:=tmp;

c максимумом аналогично

[gylayko]

ты имеешь ввиду вот так?

uses crt;
var B:array[1..16] of integer; mini,maxy,x,j,i,max,min:integer;
begin
clrscr;
randomize;
for i:=1 to 16 do B[i]:=random(100);
write('*начальный массив');
for i:=1 to 16 do write(' ',B[i]);
min:=B[1];
for i:=1 to 16 do
   begin
     if B[i]<min then min:=B[i];
     mini:=B[i];
   end;
max:=B[16];
for i:=1 to 16 do
   begin
     if B[i]>max then max:=B[i];
     maxy:=B[i];
   end;
writeln;
writeln('max=',max,' min=',min);
x:=mini;
mini:=B[8];
B[8]:=x;
for i:=1 to 16 do
  write(' ',B[i]);
readln;
end.

ток там я только для минимального сделал, но для максимального сделать не проблема! проблема в том, что выводит точно такой же массив как и сначала! что я не так делаю?

[IT-man]

потому что ты смотришь в книгу а видишь 0
у тебя

 if B[i]<min then min:=B[i];
     mini:=B[i];

у меня

 if B[i]<B[min] then min:=i;

почувствуй разницу
верный ответ :
я запоминаю индекс элемента а ты его значение

[gylayko]

так?

uses crt;
var B:array[1..16] of integer; mini,maxy,x,j,i,max,min:integer;
begin
clrscr;
randomize;
for i:=1 to 16 do B[i]:=random(100);
write('*начальный массив');
for i:=1 to 16 do write(' ',B[i]);
min:=B[1];
for i:=1 to 16 do
   begin
     if B[i]<B[min] then min:=i;
   end;
max:=B[16];
for i:=1 to 16 do
   begin
     if B[i]>max then max:=B[i];
   end;
writeln;
writeln('max=',max,' min=',min);
x:=B[min];
B[min]:=B[8];
B[8]:=x;
write('                ');
for i:=1 to 16 do
  write(' ',B[i]);
readln;
end.

[IT-man]

Да только

writeln('max=',max,' min=',B[min]);

и не

min:=B[1];

а

min:=1;

[gylayko]

Бред, вот код, который по идее должен подходить

uses crt;
var B:array[1..16] of integer; mini,maxy,x,y,j,i,max,min:integer;
begin
clrscr;
randomize;
for i:=1 to 16 do B[i]:=random(100);
write('*начальный массив');
for i:=1 to 16 do write(' ',B[i]);
min:=1;
for i:=1 to 16 do
   begin
     if B[i]<B[min] then min:=i;
   end;
 x:=B[min];
 B[min]:=B[8];
 B[8]:=x;
max:=16;
for i:=1 to 16 do
   begin
     if B[i]>B[max] then max:=i;
   end;
 y:=B[max];
 B[max]:=B[9];
 B[9]:=y;
writeln;
writeln('max=',B[max],' min=',B[min]);
write('                ');
for i:=1 to 16 do
  write(' ',B[i]);
readln;
end.

и что же? смотри, что получается

[IT-man]

uses crt;
var B:array[1..16] of integer; mini,maxy,x,y,j,i,max,min:integer;
begin
clrscr;
randomize;
for i:=1 to 16 do B[i]:=random(100);
write('*начальный массив');
for i:=1 to 16 do write(' ',B[i]);
min:=1;
for i:=1 to 16 do
   begin
     if B[i]<B[min] then min:=i;
   end;
   

max:=16;
for i:=1 to 16 do
   begin
     if B[i]>B[max] then max:=i;
   end;
   writeln;
writeln('max=',B[max],' min=',B[min]);
 x:=B[min];
 B[min]:=B[8];
 B[8]:=x;
 y:=B[max];
 B[max]:=B[9];
 B[9]:=y;
writeln;
write('                ');
for i:=1 to 16 do
  write(' ',B[i]);
readln;
end.

Достал ты меня) зачем ты сначала меняешь элементы местами а потом выводишь максимум и минимум?

результат :

*начальный массив 81 8 3 43 22 55 77 37 68 38 96 13 17 1 67 66
max=96 min=1
81 8 3 43 22 55 77 1 96 38 68 13 17 37 67 66

[gylayko]

ну не вывожу я теперь максимум и минимум, и что? что-то меняется? убрал я это из кода, оно все равно не то меняет!

[IT-man]

вот результат работы программы из поста N8
max был 11-м а Min --14

*начальный массив 81 8 3 43 22 55 77 37 68 38 96 13 17 1 67 66
max=96 min=1
81 8 3 43 22 55 77 1 96 38 68 13 17 37 67 66

А теперь Max стал 9-м а Min - 8-м как ты и просил

оно все равно не то меняет

Есть одно средство -- "Выпрямитель рук называется"