Question

Последовательно по одному вводятся N целых чисел X. Найти минимальное из чисел и сумму положительных чисел. Если положительных чисел нет в последовательности,то выдать соответствующее сообщение.

Answer 1

// PascalABC.Net

var a: array of integer;

n, i, min, sum: integer;

begin

   write('Введите кол-во чисел, которое Вы будете вводить далее: ');

   readln(n);

   SetLength(a, n);

   

   for i := 0 to n - 1 do

   begin

       write('Введите ', i + 1, ' число: ');

       readln(a[i]);

   end;

   writeln();

   

   min := a[0];

   for i := 0 to n - 1 do

   begin

       if a[i] > 0 then

           sum := sum + a[i];

       if a[i] < min then

           min := a[i];

   end;

   writeln('Минимальное число: ', min);

   writeln('Сумма положительных чисел: ', sum);

end.

Answer 2

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

pythonCopy code
N = int(input("Введите количество чисел: "))
min_number = float('inf')  # Инициализируем минимальное число как бесконечность
positive_sum = 0  # Инициализируем сумму положительных чисел как 0
positive_found = False  # Флаг для определения наличия положительных чисел

for i in range(N):
    X = int(input(f"Введите число {i+1}: "))
    
    if X < min_number:
        min_number = X  # Обновляем минимальное число
    
    if X > 0:
        positive_sum += X
        positive_found = True

if positive_found:
    print(f"Минимальное число: {min_number}")
    print(f"Сумма положительных чисел: {positive_sum}")
else:
    print("Положительных чисел нет в последовательности.")

Этот код сначала запрашивает количество чисел N, затем последовательно вводит N целых чисел. В ходе этого процесса, он находит минимальное число и суммирует положительные числа. Если в последовательности нет положительных чисел, выводится соответствующее сообщение.