Question

Массив из 13 элементов заполнить случайными числами от -2 до 4 включительно. Найти сумму положительных элементов . Заменить все отрицательные элементы единицами. Определить количество единичных элементов.

Answer 1

PascalABC.NET 3.3

begin
 var a:=ArrRandom(13,-2,4).Println;
 writeln('s = ',a.Where(x->x>0).Sum);
 a:=a.Select(x->x<0?1:x).ToArray; 
 a.Println;
 writeln('Кол-во единиц = ',a.Where(x->x=1).Count);
end.

Пример:
-2 2 3 2 2 4 4 -1 0 2 2 4 1
s = 26
1 2 3 2 2 4 4 1 0 2 2 4 1
Кол-во единиц = 3

Answer 2

Я могу помочь вам с написанием кода на разных языках программирования. Вот пример кода на Python, который выполняет задачу, которую вы описали:

# Импортируем модуль random для генерации случайных чисел
import random

# Создаем пустой массив из 13 элементов
array = [0] * 13

# Заполняем массив случайными числами от -2 до 4 включительно
for i in range(13):
    array[i] = random.randint(-2, 4)

# Выводим исходный массив на экран
print("Исходный массив:", array)

# Находим сумму положительных элементов
sum = 0
for element in array:
    if element > 0:
        sum += element

# Выводим сумму на экран
print("Сумма положительных элементов:", sum)

# Заменяем все отрицательные элементы единицами
for i in range(13):
    if array[i] < 0:
        array[i] = 1

# Выводим измененный массив на экран
print("Измененный массив:", array)

# Определяем количество единичных элементов
count = 0
for element in array:
    if element == 1:
        count += 1

# Выводим количество на экран
print("Количество единичных элементов:", count)

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