Question

ПОМОГИТЕ !!! Дана последовательность действительных чисел а1, а2, а3...аn Cоздать массив из положительных чисел этой последовательности (если таких чисел нет, то вывести сообщение об этом факте)

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var s := ReadSeqReal('Введите числа:', n);

 var a := s.Where(p -> p > 0).ToArray;

 if a.Length = 0 then

   Print('Положительных чисел нет')

 else

   a.Print

end.

Answer 2

Конечно, я могу помочь вам с этим! Если вы хотите создать массив из положительных чисел заданной последовательности, то вам нужно пройти по всем элементам последовательности и отобрать те, которые больше нуля. Вот как это можно сделать на примере языка программирования Python:

pythonCopy code
# Заданная последовательность
sequence = [а1, а2, а3, ..., аn]

# Создаем пустой массив для положительных чисел
positive_numbers = []

# Проходим по всем элементам последовательности
for num in sequence:
    if num > 0:
        positive_numbers.append(num)

# Проверяем, есть ли положительные числа
if len(positive_numbers) > 0:
    print("Массив положительных чисел:", positive_numbers)
else:
    print("В заданной последовательности нет положительных чисел.")

Замените [а1, а2, а3, ..., аn] на фактическую последовательность чисел, которую вы имеете. Этот код пройдет по всем числам и создаст массив positive_numbers из положительных чисел. Если в итоге массив оказывается пустым, будет выведено сообщение о том, что положительных чисел нет.