Question

Одномерный массив из 30 элементов введенных с клавиатуры, найти сумму положительных, количество отрицательных

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(30);

 var (s , k) := (0, 0);

 foreach var n in a do

   if n > 0 then

     s += n

   else if n < 0 then

     k += 1;  

 Println('Сумма положительных:', s, 'кол-во отрицательных:', k)

end.

Answer 2

Ответ:

Program summa; Const m=30; Var a:array[1..m] of real; k,i:byte; n,sum:real; BEGIN Randomize; For i:=1 to m do a[i]:=Random(500)+500; Writeln('исходный массив '); Writeln; For i:=1 to m do begin Writeln(a[i

Answer 3

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

pythonCopy code
array = []  # Создаем пустой массив

# Вводим элементы массива с клавиатуры
for i in range(30):
    num = int(input("Введите элемент массива: "))
    array.append(num)

positive_sum = 0  # Сумма положительных чисел
negative_count = 0  # Количество отрицательных чисел

# Обрабатываем каждый элемент массива
for num in array:
    if num > 0:
        positive_sum += num  # Если число положительное, добавляем его к сумме
    elif num < 0:
        negative_count += 1  # Если число отрицательное, увеличиваем счетчик

print("Сумма положительных чисел:", positive_sum)
print("Количество отрицательных чисел:", negative_count)

Вы можете запустить эту программу на своем компьютере, введя элементы массива с клавиатуры. Программа найдет сумму положительных чисел и количество отрицательных чисел в массиве.