Массивы

[Ebon]

Дан массив целых чисел сформировать наибольшее возможное число из цифр максимального и минимального элементов массива.
Нахождение макс. и мин. элементов:

Program abc;
const m=3;
var
a: array [1..m] of integer;
i, q, min, max, z: integer;
begin
for i:=1 to m do
begin
write ('a[',i,']=');
readln (a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to m do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('z=',z);
end.

А как не используя строку сформировать наибольшее число?

[Mad_Cat]

Разбить на цифры -->загнать в массив --->отсортировать по убыванию--->получить число---> вывести

[Ebon]

Разбить на цифры и загнать в массив при помощи каких операторов делается?

[Mad_Cat]

при помощи

while ,+,:=,div и mod

[Serge_Bliznykov]

вот готовый код.
попробуйте в нём разобраться...

program abc;
uses crt;
const m = 7;
var
  a: array[1..m] of integer;
  i, j, q, min, max, z: integer;
  Digits: array[1..30] of integer; {массив для хранения отдельных циферок}
  KolDigits: integer; {количество циферок в массиве Digits}
  N, OneDigit: integer;



begin
  randomize;
  for i := 1 to m do
  begin
    write('a[', i, ']=');
{readln (a[i]);} a[i] := Random(500) + 10; write(a[i], '  ');
  end;
  writeln;
  max := a[1];
  min := a[1];
  for i := 2 to m do
  begin
    if max < a[i] then max := a[i];
    if min > a[i] then min := a[i];
  end;

  WriteLn(' max = ', max, ' min = ', min);

  KolDigits := 0;

  {разобьём число max на цифры}
  N := max;
  repeat
    OneDigit := N mod 10;
    N := N div 10;
    inc(KolDigits);
    Digits[KolDigits] := OneDigit;
  until N = 0;

  {разобьём число min на цифры}
  N := min;
  repeat
    OneDigit := N mod 10;
    N := N div 10;
    inc(KolDigits);
    Digits[ KolDigits ] := OneDigit;
  until N = 0;

  {отсортируем массив Digits по убыванию}

  {сортировка массива методом простых обменов ("пузырька") }
  for i:=1 to KolDigits-1 do
    for j:=i+1 to KolDigits do
      if Digits[i] < Digits[j]then
        begin
          q := Digits[i];
          Digits[i]:=Digits[j];
          Digits[j]:=q
        end;

  {выведем максимальное число}
  WriteLn;
  Write('Максимальное число из найденных цифр: ');
  for i:=1 to KolDigits do Write(Digits[ i ]);
  WriteLn;

  Readln
end.

[Mad_Cat]

только число я бы вот так вывел)

 max:=0
 for i:=1 to KolDigits do
 max:=max*10+Digits[ i ];
 Write(max);

[Serge_Bliznykov]

только число я бы вот так вывел)

элементарно может не хватить разрядности.
попробуйте занесите в массив

for i:=1 to m do a[i] := MaxInt;

и расскажете, чему там max получился равным...

впрочем, хозяин — барин!

[Ebon]

Спасибо. Еще я добавил в программу функций, но почему-то значение не вычисляет, посмотрите, что не так:

program abc;
const m=2;
type
st=array[1..m] of integer;
digits=array[1..30] of integer;
var
a:st;
b:digits;
i, j, q, min, max, z: integer;
KolDigits: integer;
N, OneDigit: integer;

function fr(max: integer):integer;
var
a: st;
b: digits;
KolDigits, p: integer;
N, OneDigit: integer;
begin
N := max;
repeat
OneDigit := N mod 10;
N := N div 10;
inc(KolDigits);
b[KolDigits] := OneDigit;
until N = 0;
fr:=b[koldigits];
end;

begin
for i := 1 to m do
begin
write('a[', i, ']=');
readln (a[i]);
end;
writeln;
max := a[1];
min := a[1];
for i := 2 to m do
begin
if max < a[i] then max := a[i];
if min > a[i] then min := a[i];
end;
KolDigits := 0;

b[koldigits]:=fr(max);
b[koldigits]:=fr(min);

for i:=1 to KolDigits-1 do
for j:=i+1 to KolDigits do
if b[i] < b[j] then
begin
q := b[i];
b[i]:=b[j];
b[j]:=q
end;

Write('Naibolshee chislo: ');
for i:=1 to KolDigits do Write(b[i]);
Readln
end.

[Mad_Cat]

попробуйте занесите в массив

Serge_Bliznykov,вы меня конечно извините, но если в массиве цифры[0..9] откуда там окажется MaxInT?