Question

Написать листинг: дан массив из 10 натуральных элементов. Найти количество положительных элементов и вывести их позиции.

Answer 1

Ответ:

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

s,x,i:integer;

begin

 for i:=1 to 10 do begin

   readln (x);

   a[i]:=x;

   end;

   write ('Элементы: ');

   for i:=1 to 10 do

     if (a[i]>0) then

       write (i,',');

end.

Answer 2

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

pythonCopy code
# Заданный массив из 10 натуральных элементов
arr = [2, -5, 7, 0, 9, -3, 1, 8, 4, -6]

# Инициализация переменной для подсчета положительных элементов
count_positive = 0

# Цикл для поиска положительных элементов и их позиций
positive_positions = []
for i in range(len(arr)):
    if arr[i] > 0:
        count_positive += 1
        positive_positions.append(i)

# Вывод результатов
print("Количество положительных элементов в массиве:", count_positive)
print("Позиции положительных элементов в массиве:", positive_positions)

Этот код создает массив из 10 натуральных элементов, затем перебирает его, находит положительные элементы и сохраняет их позиции в отдельном списке positive_positions. Результаты выводятся на экран.