Помогите пожалуйста с кодом((
1.Разработать дополнение с фреймом!
2.Обеспечить просмотр исходного и преобразованного массивов.
Код:
В ОДНОМЕРНОМ МАССИВЕ ПОМЕНЯТЬ МЕСТАМИ НАИБОЛЬШИЙ И НАИМЕНЬШИЙ ЭЛЕМЕНТЫ!
-- Вс май 17, 2009 14:49:12 --Вот мой код - но вот он только меняет местами лишь тогда когда(покажу так):
если
1 2 3 4
5 то оно делает правильно, а именно
5 2 3 4
1,но если вводить к примеру так 4 5
1 56 2 5(должно выйти так 4 5
56 1 2 5) то прога ни чего не делает!!что делать?
Код:
procedure TNewFrame.Button1Click(Sender: TObject);
begin
edit2.clear;
str :=edit1.Text;
index:=1;
n := 0;
for i := 1 to length(str) do
begin
if str[i] = ' ' then
begin
inc(n);
if i - index = 1 then
a[n] := StrToInt(str[index]) else
a[n] := StrToInt(copy(str,index,i - index));
index := i + 1;
end;
end;
max := a[1];
for i:=1 to n do
if a[i] > max then
begin
max := a[i];
imax := i;
end;
min := a[2];
for i:=1 to n do
if a[i] < min then
begin
min := a[i];
imin := i;
end;
new:=a[imax];
a[imax]:=a[imin];
a[imin]:=new;
for i:=1 to n do
edit2.Text := edit2.Text + intToStr(a[i])+ ' ';
end;
-- Вс май 17, 2009 14:55:44 --все уже не нужно!
