var a: array [1..10] of integer;
i, sum: integer;
begin
sum:=0;
randomize;
for i:=1 to 10 do
a[i]:= random(11) - 5;
for i:=1 to 10 do begin
if a[i] < 3 then
sum:=sum+a[i];
end;
writeln(sum);
end.
Объяснение:
