возрат суммы

[11111]

Помогите пожайлуста разобратся с этой задачей. Описать функцию, которая возвращает сумму К=1,2,… наименьших цифр, входящих в запись числа типа Longint . Вот код только помоему он неправильно считает. Тут мне кажется вся проблема в К она поидее должна описыватся в var.

type
  A=array[0 .. 9] of byte;

function get_sum(n: longint; k: integer): integer;
var
  arr:A;
  i,T,sum:integer;
begin
  fillchar(arr, sizeof(arr), 0);
  while n > 0 do begin
    inc(arr[n mod 10]); n := n div 10;
  end;

  sum := 0; T := 0;
  while k > 0 do begin
    while arr[T] = 0 do inc(T);
    inc(sum, T * arr[T]);
    inc(T); dec(k);
  end;
  get_sum := sum;
end;

var
  n: longint;
  k: integer;
begin
  write('vvedite chislo = '); readln(n);
  write('vvedite kol-vo min chifar = '); readln(k);

  writeln('summa = ', get_sum(n, k));
  readln;
end.

[11111]

Вот я изменил программу . только тут нужно вычесть максимальный элемент. Только тут нужно сделать так чтоб выводилась сразу сумма. А сумма минимальных находится просто сложением без максимального чмсла, тюею не нужно задавать какое именно кол-во минимальных цифр нужно порлучить

var
ch:longint;
procedure do_it(var l:longint);
var
i,j,n,s,min:integer;
m:array[1..25] of integer;
Begin
    i:=1;
    while l>0 do
        begin
           m[i]:=l mod 10;
           l:=l div 10;
           n:=i;
           inc(i)
        end;
     for j:=1 to n-1 do
         for i:=1 to n-j do begin
             if m[i]>m[i+1] then
             begin
               min:=m[i];
               m[i]:=m[i+1];
               m[i+1]:=min
             end;           end;
             s:=0;
           for i:=1 to n do
               begin
                    s:=s+m[i];
                    writeln(s)
               end;
           end;
BEGIN
read(ch);
do_it(ch)
End.

[Vituskz]

я что та не совсем условие задачи понял... надо найти просто сумму массива или как?...и что значит

наименьших цифр, входящих в запись числа типа Longint

?

[11111]

это число должно находится в приделах longint это от -2147483648 до +217483647. а задание сводится к тому чтоб сложить все элементы кроме максимального. например 1236412 максимальный элемент 6 значит складываем 1+2+3+4+1+2=12 и должно выводится сумма наименьших равна 12

[puporev]

Тебя как всегда трудно понять. В первом коде у тебя несколько ошибок, в том числе и та о которой ты подумал, раздел переменных всегда идет раньше раздела описантя подпрограмм. Очень запутана и налогична сама функция. Вот как можно решить твое первое условие. Посмотри структуру кода, разберись и сам исправишь все свои ошибки.

program sum_cif;
uses crt;
var n:longint;  //раздел переменных
    k:integer;
function get_sum(n:longint;k:integer):integer;
var a,i,j,x,u,sum:integer;
    b:array[1..10] of integer; //тип Longint на более 10 цифр
begin
a:=0;
   while n>0 do  //разделяем число на цифры
     begin
        u:=n mod 10;     {15287=1,5,2,8,7}
        a:=a+1;
        b[a]:=u;   //создаем массив из цифр
        n:=n div 10;
     end;
   for i:=1 to a-1 do    //сортируем его по возрастанию
     begin                 {1,5,2,8,7=8,7,5,2,1}
        for j:=1 to a-1 do
           if b[j]>b[j+1] then
              begin
                 x:=b[j];b[j]:=b[j+1];b[j+1]:=x;
              end;
     end;
  sum:=0;
  for i:=1 to k do   //находим сумму первых К цифр
  sum:=sum+b[i];
  Get_sum:=sum;      //присваиваем значение функции
end;
begin
   clrscr;
   write('n=');readln(n);   //вводим исходные данные
   write('k=');readln(k);
   writeln('sum=',Get_sum(n,k));  //выводим результат
readln;
end.

[11111]

а со вторым кодом что нужно сделать?

[puporev]

Во втором случае добавляешь в функцию вместо сортировки поиск максимального элемента

max:=b[1];imax:=1;
for i:=1 to a do
if  b[i]>max then 
    begin  
      max:=b[i];imax:=i;
    end;

находишь сумму без максимального элемента

sum:=0;   
  for i:=1 to a do   //находим сумму первых К цифр   
  sum:=sum+b[i];   
  Get_sum:=sum-b[imax];      //присваиваем значение функции   
end;

Естественно в разделе локальных переменных функции меняешь список переменных.

[11111]

Вот что получилось только выдаёт ошибку.

var
ch:longint;
procedure get_sum(var l:longint);
var
i,j,n,s,max,imax:integer;
m:array[1..25] of integer;
Begin
    i:=1;
    while l>0 do
        begin
           m[i]:=l mod 10;
           l:=l div 10;
           n:=i;
           inc(i)
        end;
     for j:=1 to n-1 do
         for i:=1 to n-j do begin
             if m[i]>m[i+1] then
             begin
               max:=m[1]; imax:=1;
               for i:=1 to n do
               if m[i]>max then
                  begin
                    max:=m[i]; imax:=i
             end;           end;
             s:=0;
           for i:=1 to n do
               begin
                    s:=s+m[i];
                get_sum:=sum-m[imax];
               end;
           end;
BEGIN
read(ch);
get_sum(ch)
End.

[puporev]

Ты понял, что здесь написал?

for j:=1 to n-1 do
for i:=1 to n-j do begin
if m[i]>m[i+1] then
begin
max:=m[1]; imax:=1;
for i:=1 to n do
if m[i]>max then
begin
max:=m[i]; imax:=i
end; end;

Это гибрид из сортировки и поиска максимального элемента, а я писал вставить поиск max ВМЕСТО сортировки.
Убери
for j:=1 to n-1 do
for i:=1 to n-j do begin
if m[i]>m[i+1] then
begin
end;

[11111]

У меня всёравно выдаётся ошибка "(" expected той строке get_sum:=s-m[imax];

var
ch:longint;
procedure get_sum(var l:longint);
var
i,j,n,s,max,imax:integer;
m:array[0..9] of integer;
Begin
    i:=1;
    while l>0 do
        begin
           m[i]:=l mod 10;
           l:=l div 10;
           n:=i;
           inc(i)
        end;

               max:=m[1]; imax:=1;
               for i:=1 to n do
               if m[i]>max then
                  begin
                    max:=m[i]; imax:=i
             end;

             s:=0;
           for i:=1 to n do
               begin
                    s:=s+m[i];
                get_sum:=s-m[imax];
               end;
           end;
BEGIN
read(ch);
get_sum(ch)
End.