Question

Составьте программу, которая запрашивает значение элементов одномерного числового массива a, состоящего из 10 элементов, формирует и выводит на экран в строку данный массив. найти сумму элементов массива, не равных нулю Пожалуйста, быстреее!!!!!

Answer 1

var A:array[1..10] of integer;

i:integer;

s: integer;

begin

writeln('Массив А:');

s:=0;

for i:=1 to 10 do

begin

write('Введите ',i,'-e число ');

readln(A[i]);

if A[i] <> 0 then s:=s+1;

end;

write('Строка чисел: ');

for i:=1 to 10 do

begin

write(a[i],' ');

end;

writeln();

writeln('Сумма элементов, не равных нулю = ',s);

end.

Answer 2

var

a : array [1..10] of real;

s: real;

k : integer;

begin

s := 0;

for k:= 1 to 10 do

Begin

readln (a[k]);

s:= s+ a[k];

end;

for k:= 1 to 10 do writeln(a[k], ' ');

writeln ('сумма=', s);

End.

Answer 3

Конечно, вот пример программы на языке Python, выполняющей указанные задачи:

pythonCopy code
# Запрос значений элементов массива
a = []
for i in range(10):
    num = int(input(f"Введите значение элемента {i+1}: "))
    a.append(num)

# Вывод массива на экран
print("Массив a:", end=" ")
for num in a:
    print(num, end=" ")
print()

# Вычисление суммы элементов, не равных нулю
sum_non_zero = sum([num for num in a if num != 0])

# Вывод суммы на экран
print("Сумма элементов, не равных нулю:", sum_non_zero)

Программа запрашивает значения элементов массива у пользователя и сохраняет их в переменную a. Затем она выводит полученный массив на экран. Далее, с помощью генератора списка и функции sum(), программа вычисляет сумму элементов массива, не равных нулю, и выводит ее на экран.

Надеюсь, это поможет вам! Если у вас есть дополнительные вопросы, не стесняйтесь задавать.