Задача, на нахождение мин и макс чисел и сравнние их. Опции

[DeadLord]

Дано 4-ох и 3-ох значные числа, среди цифр 4-ох значного найти максимальное, среди 3-ох минимальное, получить их числовой код.

[Client]

получить их числовой код.

Т.е. в шестнадцатиричной ситеме?
И в чем проблема?

[DeadLord]

нет просто получить наверное буквенный код я просто после экзаменов не в состоянии их решить, вот и просил помочь, решается скорее всего через масив одномерный(

извиняюсь символьный!

Сообщение отредактировано: DeadLord - 12.12.2007 20:31

[Client]

не обязательно, просто нахадишь с помощью div'а и mod'а макс и мин цифру и печатаешь ее

[DeadLord]

я знаю каким образом через див и мод а можно через масив?
Найти его минемальны и максимальный элементы и сопоставить их.
просто я не знаю как найти мах и мин элеенты.

[DeadLord]

Благодаря Client`y решил эту задачу вот код:

uses crt;
var
 a:array [1..4] of integer;
 b:array [1..3] of integer;
 c,d,i:integer;
 g:char;
begin
clrscr;
 for i:=1 to 4 do
  readln (a[i]);
 for i:=1 to 4 do
  begin
   c:=a[i];
   if a[i]>c then c:=a[i]
  end;
 for i:=1 to 3 do
  readln (b[i]);
 for i:=1 to 3 do
  begin
   d:=b[i];
   if b[i]<d then d:=b[i]
  end;
 if c>d then g:=chr(d) else g:=chr(c);
  writeln (g);
end.

[Client]

Не a[i] a a[1] Исправь

[Malice]

решил эту задачу вот код:

Класс Жаль неправильно..
Я так понимаю, надо примерно вот так действовать:

 ....
ReadLn(a); m:=0;
while a>0 do begin
  if (a mod 10)>m then m:=a mod 10;
  a:=a div 10;
end;

В m теперь максимальное число. Аналогично делается для минимального..