Паскаль. определить сумму элементов кратных трем.

[KnoPaA]

нужно в дельфии а не в паскале.
Дан одномерный массив.Нужно определить сумму элементов кратных трем.

procedure TForm1.Button1Click(Sender: TObject);
Var a:array[1..20] of integer;
max,i,im,n,c:integer;
begin
n:=StrToint(Edit1.text);
mas1.ColCount:=n;
for i:=1 to n do
a[i]:=StrToInt(mas1.Cells[i-1,0]);

Вроде начало так а вот как дальше?

[Stilet]

for i:=1 to n do
a[i]:=StrToInt(mas1.Cells[i-1,0]);
 if a[i] mod 3=0 then summ:=summ+a[i];

Смысл ясен?

[ОДИНОЧЕСТВО В СЕТИ]

2stilet
после do begin не хватает!

From Stilet: Согласен. Принято.

[KnoPaA]

Сообщение от Stilet

for i:=1 to n do
a[i]:=StrToInt(mas1.Cells[i-1,0]);
 if a[i] mod 3=0 then summ:=summ+a[i];

Смысл ясен?

нужно в дельфии

[ОДИНОЧЕСТВО В СЕТИ]

нужно в дельфии

а у Stilet-a в чем???

[raxp]

нужно в дельфи

вам в дельфи и написали