возрат суммы

[puporev]

Вот писал я

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

Вот пишешь ты

s:=0;
for i:=1 to n do
begin
s:=s+m[i];
get_sum:=sum-m[imax];
end;
end;

Найди разницу.