Создать массив 10 случайных целых чисел в диапазоне [-5; 5]. вычислить сумму элементов меньших 3.

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.

Объяснение: