Код (Pascal)
var
a: array[1..10] of integer;
i, ans: integer;
begin
ans := 0;
for i := 1 to 10 do
read(a[i]);
for i := 1 to 10 do
if (a[i] < 3) then ans := ans + a[i];
writeln(ans);
end.
---------------------------------------
Файл решения прикреплён.