Дан массив размера N. Поменять местами его минимальный и максимальный элементы.

[nadyaH]

Дан массив размера N. Поменять местами его минимальный и максимальный элементы.
Нужна помощь в написании прогараммы.

[Serge_Bliznykov]

MinI := 1;
MaxI := 1;
for i:=2 to N do begin
  if A[i]<A[MinI] then MinI := i;
  if A[i]>A[MaxI] then MaxI := i;
end;
if  MaxI<>MinI then begin
  tmp := A[MinI];
  A[MinI] := A[MaxI];
  A[MaxI] := tmp;
end;

p.s. tmp переменная того же типа, что и элементы массива A

[nadyaH]

type
TArray = array[1..40] of Integer;
function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=1 to N-1 do
    result := result  + IntToStr(a[i])+',';
  result := result  + IntToStr(a[N]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
N,minI,MaxI,i,tmp:integer;
a:TArray;
begin
Randomize;
for i:=1 to N do A[i] := Random(41);
MinI := 1;
MaxI := 1;
for i:=2 to N do begin
  if A[i]<A[MinI] then MinI := i;
  if A[i]>A[MaxI] then MaxI := i;
end;
if  MaxI<>MinI then begin
  tmp := A[MinI];
  A[MinI] := A[MaxI];
  A[MaxI] := tmp;
end;
end;
RichEdit1.Lines.Clear;(RichEdit1, ошибку выдаёт)
RichEdit1.Lines.Append(ArrayToString(a,n));
RichEdit2.Lines.Clear;
RichEdit2.Lines.Append(ArrayToString(tmp));
end.

[Serge_Bliznykov]

ошибка раз:

rocedure TForm1.Button1Click(Sender: TObject);
var
N,minI,MaxI,i,tmp:integer;
a:TArray;
begin
Randomize;
for i:=1 to N do A[i] := Random(41);

чему равно в данном случае N ?!?!? Его нужно задавать, перед тем как использовать!
сравните со своими предыдущими программами, там откуда бралось N ?

RichEdit2.Lines.Append(ArrayToString(tmp));

ну это вообще ни в какие ворота!!! Мало того, что переменная tmp - НЕ МАССИВ!
Так её выводить ещё и бессмысленно! Вам выбранное мной имя для этой переменной ни о чём не сказало? tmp это сокращенное temporary, означает "временная" (промежуточная). Она используется для обмена. Выводить её в принципе нет смысла. Ну, если уж и выводить (я не знаю, зачем она Вам, ну, допустим, зачем то нужна), тогда это надо делать через RichEdit2.Lines.Append( IntToStr(tmp) );

[nadyaH]

{$R *.dfm}
type
TArray = array[1..40] of Integer;
function ArrayToString(a: TArray; N: integer): string;
var
  i: integer;
begin
  result := '';
  for i:=1 to N-1 do
    result := result  + IntToStr(a[i])+',';
  result := result  + IntToStr(a[N]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
N,minI,MaxI,i,tmp:integer;
a:TArray;
begin
N:=StrToInt(Edit1.Text);
Randomize;
for i:=1 to N do A[i] := Random(41);
RichEdit1.Lines.Clear;
RichEdit1.Lines.Append(ArrayToString(a,n));
MinI := 1;
MaxI := 1;
for i:=2 to N do begin
  if A[i]<A[MinI] then MinI := i;
  if A[i]>A[MaxI] then MaxI := i;
end;
if  MaxI<>MinI then begin
  tmp := A[MinI];
  A[MinI] := A[MaxI];
  A[MaxI] := tmp;
end;
RichEdit2.Lines.Clear;
RichEdit2.Lines.Append(ArrayToString(a,n));
end;end.

Вроде работает.Но почему то если в конце есть минимальный или максимальный элемент, программа не меняет число на нужное.

[Serge_Bliznykov]

Сообщение от nadyaH

Но почему то если в конце есть минимальный или максимальный элемент, программа не меняет число на нужное.

думаю, что Вы ошибаетесь.

p.s. уберите выделенную красным строчку

if  MaxI<>MinI then begin
  tmp := A[MinI];
  A[MinI] := A[MaxI];
  A[MaxI] := tmp;
end;
RichEdit2.Lines.Clear;
RichEdit2.Lines.Append(ArrayToString(a,n));
end

[nadyaH]

Смысл задания поменять только максимальный и минимальный элемент?
т.е.
массив например: 2,3,2,6,7,8,9,2
то при выполнении получится такой
массив: 9,3,2,6,7,8,2,2.
(2 и 9 поменялись местами.)?
Или нужно что бы все минимальные и максимальные элементы поменялись местами,т.е.
ответ будет таким: 9,3,9,6,7,8,2,9
???

А Программа меняет все минимальные элементы до максимального элемента, а если после максимального элемента повторяется минимальный элемент, то программа уже его не меняет на максимальный эл-т.
Т.е. массив получается: 9,3,9,6,7,8,2,2
Я не поняла смысл задачи.

[Аватар]

Поменять местами его минимальный и максимальный элементы

Думаю тот, кто давал задание лучше знает, чем на форуме. Я бы у него сначала поинтересовался. А так не вижу в задании упоминаний о том, что делать, если минимальных и/или максимальных несколько

[nadyaH]

Ясно.Спасибо всем за помощь!

[Sasha_Smirnov]

Сообщение от nadyaH

Смысл задания поменять только максимальный и минимальный элемент?
Программа меняет все минимальные элементы до максимального элемента, а если после максимального элемента повторяется минимальный элемент, то программа уже его не меняет на максимальный эл-т.

А по-моему, вы лучше всех поняли смысл задачи. Вам предложили школьный вариант* решения — а вы подошли со всей душой!

Похожая коллизия уже обсуждалась: http://programmersforum.ru/showthrea...=245151&page=2

Сообщение от Аватар

…не вижу в задании упоминаний о том, что делать, если минимальных и/или максимальных несколько

Завзятый программист рассматривает все варианты. И, кстати, nadyaH в этом преуспела!
__________________
* будто бы замена касается лишь первого минимума