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

[Zzoyberg]

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

[Zer0]

Модуль 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.

То, что Вы не указываете язык - исключительно Ваша проблема