Question

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

Answer 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.

Answer 2

// PascalABC.NET

begin

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

 x.Println;

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

end.

Answer 3

Для начала, давайте сгенерируем случайный массив X из 17 элементов в диапазоне от -43 до 79:

pythonCopy code
import random

X = [random.randint(-43, 79) for _ in range(17)]
print("Сгенерированный массив X:", X)

Теперь мы можем вычислить сумму однозначных элементов массива X:

pythonCopy code
sum_single_digit = sum([num for num in X if -9 <= num <= 9])
print("Сумма однозначных элементов массива X:", sum_single_digit)

Этот код сначала генерирует массив X, а затем вычисляет сумму элементов, которые находятся в диапазоне от -9 до 9 включительно (то есть однозначные числа) и выводит их сумму.