
Пожалуйста, ПОМОГИТЕ!!!! Дан массив из N элементов. Сформировать массив В из положительных
элементов массива А. Найти в полученном массиве сумму элементов с четным порядковым номером.

Ответы на вопрос

Program z1;
Var a: array [1..100] of integer; i,s,j,m,n:integer;
b: array [1..100] of integer;
Begin
write('Введите размерн массива - ');
readln(n);
randomize;
for i:=1 to n do
begin
a[i]:=random(20)-10;
write (a[i],' ');
end;
j:=1;
for i:=1 to n do
if (a[i]>0)
then begin
b[j]:=a[i];
j:=j+1;
end;
writeln;
s:=0;
m:=j-1;
for j:=1 to m do
write (b[j],' ');
for j:=1 to m do
if (j mod 2 = 0) then s:=s+b[j];
writeln;
writeln(s);
End.



Конечно, я помогу вам с этим заданием. Вам нужно выполнить несколько шагов:
- Сформировать массив B из положительных элементов массива A.
- Найти сумму элементов в массиве B с четными порядковыми номерами.
Вот пример кода на Python, который решает вашу задачу:
pythondef positive_elements(arr):
return [x for x in arr if x > 0]
def sum_even_indices(arr):
return sum(arr[1::2]) # Сумма элементов с четными индексами (индексация начинается с 0)
# Пример использования
A = [-2, 3, -5, 7, 8, -10, 11]
B = positive_elements(A)
result = sum_even_indices(B)
print("Массив B из положительных элементов A:", B)
print("Сумма элементов B с четными порядковыми номерами:", result)
В этом примере мы сначала определяем две функции: positive_elements
, которая создает массив B из положительных элементов A, и sum_even_indices
, которая вычисляет сумму элементов с четными индексами в массиве. Затем мы применяем эти функции к вашему массиву A.
Давайте разберем код:
positive_elements
использует list comprehension для создания нового массива, содержащего только положительные элементы из исходного массива.sum_even_indices
использует срезы (slicing) для выбора элементов с четными индексами и затем суммирует их.Мы применяем эти функции к вашему массиву A и выводим результаты.
Если у вас есть свой собственный массив A, просто замените его в коде. Надеюсь, это помогает! Если у вас есть дополнительные вопросы, пожалуйста, дайте знать.


Похожие вопросы
Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili