Паскаль. Массивы.

[Ebon]

Дан массив целых чисел. Сформировать наибольшее возможное число из цифр максимального и минимального элементов этого массива. При решении использовать функцию или процедуру.

[IT-man]

вот тебе функция для

Сформировать наибольшее возможное число из цифр максимального и минимального элементов

Function Maxx(max,min:integer):integer;
var s1,s2,st:string;
i,j:integer;
ch:char;
begin
str(max,s1);
str(min,s2);
st:=s1+s2;
for i:=1 to length(st) do
 for j:=1 to length(st)-1 do
 if st[j]<st[j+1] then
 begin
  ch:=st[j];
  st[j]:=st[j+1];
  st[j+1]:=ch;
 end;
val(st,j,i);
maxx:=j;
end;

ну а поиск

максимального и минимального элементов массива

обсуждался 100500+ раз
например тут