Размер массива и сам массив вводится с клавиатуры. Найдите сумму элементов, удволетворяющих условию: остаток от деления на 3 равен 2.

Var

mass : array of integer;

len, tempNumber, summ, i : integer;

begin

write ('Введите длину массива: ') ;

readln (len) ;

SetLength (mass, len) ;

for i : = 0 to len - 1 do

begin

write ('mass[', i, '] = ') ;

readln (mass[i]) ;

end;

summ : = 0;

for i : = 0 to len - 1 do

if mass[i] mod 3 = 2 then

summ : = summ + mass[i];

writeln ('Сумма: ', summ) ;

end.