Помогите с задачкой плиз!!!(Delphi)

[КуДрЯ]

Дано натуральное число,в котором все цифры различны.Определить,какая цифра расположена в нем левее:максимальная или минимальная.

Заранее спасибо!

[valetik]

"Левее" - это я так понимаю цифра самого старшего разряда в числе?

[Sazary]

КуДрЯ Повторяетесь!
Вы хоть запоминайте какие темы создавали.
http://programmersforum.ru/showthread.php?p=192976

[КуДрЯ]

uses crt;
var
n,i,k,max,maxi,min,mini : integer;
begin
clrscr;
write('Vvedite n: ');
readln(n);
max := n mod 10; { начальное значение максимума - первая цифра справа }
min := n mod 10; { аналогично для минимальной }
k := 0; { счетчик цифр }
maxi := k; { maxi - порядковый номер максимума (справа) }
mini := k; { аналогично для минимума }
while n>0 do { пока не достигли "конца числа" }
begin
i := n mod 10; { i - текущая цифра }
inc(k); { увеличиваем счетчик цифр }
if i >= max then { если текущая цифра больше максимума... }
begin
max := i; {...то приравниваем максимум к этой цифре }
maxi := k; { и запоминаем его положение справа }
end;

if i <= min then { аналогично для минимума }
begin
min := i;
mini := k;
end;
n := n div 10;
end;
writeln('Maximum= ',max); { выводим максимум }
writeln('Minimum= ',min); { выводим минимум }
if maxi > mini then { если максимум левее... }
writeln('Maximalnaya levee')
else if maxi < mini then { если минимум левее... }
writeln('Minimalnaya levee')
else writeln('Sovpadayut');
readln;
end.

Чтоб она работала в делфи че надо сделать?

[Sazary]

Чтоб она работала в делфи че надо сделать?

Изменить ввод/вывод.
Ну и вставить код в обработчик.

Для кода используйте тег CODE.

[NeshSoft]

Можно поступить так: сначало делаешь из числа строку s:=IntToStr(chislo); Затем перебираешь все символы, находишь минимальную, и максимальную цифру. Затем ещё раз перебираешь строку - смотришь что там левее, а что правее.

Еще, как вариант, можно вместо строки массив использовать, но мне почему то строка сначало на ум пришла. Хотя массив наверное все-таки более уместен

ой, опоздал, пока писал, тут вон сколько всего понаписали

[КуДрЯ]

Спасибо.!!!!!!!!!!!!!!!