Определить сумму натуральных элементов массива, сумма цифр которых кратна 3.

[Zzoyberg]

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

Вот она уже сделанная, но в паскале FREE не работает.

Модуль mod.pas:

unit MyModule

interface
const MaxCount=20;
type MyArr:array[1..MaxCount] of integer;

function IsDel3(n:integer):boolean;
function Sum(a:MyArr):integer;
procedure GetArr(var a:MyArr);
procedure PrintArr(a:MyArr);

implementation

function IsDel3(n:integer):boolean;
begin
 IsDel3:= (n mod 3)=0;
end;

function Sum(a:MyArr):integer;
var i,s:integer; 
begin
 s:=0;
 for i:=1 to MaxCount do
   if IsDel3(a[i]) then s:=s+a[i];
 Sum:=s;
end;

procedure GetArr(var a:MyArr);
var i:integer;
begin
 for i:=1 to MaxCount do begin
   write ('A[',i,'] = ');
   readln(a[i]);
 end;
end;

procedure PrintArr(a:MyArr);
var i:integer;
begin
  for i:=1 to MaxCount do
   write (a[i],' ');
  writeln;
end;

end.

Основная программа:

uses MyModule;

var arr:MyArr;

begin
GetArr(arr);
Writeln('Summ of elems = ',sum(arr));
PrintArr(arr);
readln;
end.

[Serge_Bliznykov]

сумма ЦИФР числа находится совсем по другому..
например, так:

  { суммуруем число N по цифрам (в обратном порядке) }
  SumN := 0;
  repeat
    OneDigit := N mod 10;
    N := N div 10;
    SumN := SumN + OneDigit;
  until N = 0;

а в остальном - нормальный код. Никаких особых косяков не вижу. Должно работать в любом нормальном Паскале.

[Zzoyberg]

В программе выдает ошибку: "Cant find unit Mymodule uses by program"
А в модуле: "ILLegal unit name: MyModule"