Сформировать случайный одномерный целочисленный массив Х, состоящий из 17 элементов, значения элементов от -43 до 79
1)Вычислить сумму однозначных элементов массива

program z1;

var i,s,k: integer;

x: array [1..17] of integer;

begin

s:=0;

k:=0;

write('Массив');

for i := 1 to 17 do

begin

x[i]:=random(123)-43;

write (x[i]:5);

if (x[i]>-10) and (x[i]<10) then

begin

s:=s+x[i];

k:=1

end

end;

writeln;

if k <> 0 then write('Сумма однозначных элементов массива ',s)

else write ('Однозначных элементов нет')

end.

// PascalABC.NET

begin

 var x := ArrRandom(17, -43, 79);

 x.Println;

 x.Where(p -> Abs(p) in 1..9).Sum.Print

end.