
Ввести массив из 7 элементов.Увеличить в 10 раз все элементы массива с нечетными значениями.
Ввести массив из 9 элементов.Подсчитать сумму отрицательных элементов массива. Ввести массив из 4 элементов.Подсчитать произведение всех элементов массива. Пж хэлпаните)))

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

1)
var mas:array[1..7] of integer;
i:integer;
begin
writeln('Введите 7 целых чисел:');
for i:=1 to 7 do
begin
readln(mas[i]);
if(mas[i] mod 2 <>0) then mas[i]:=mas[i]*10;
end;
writeln('Изменённый массив:',mas);
end.
2) var mas:array[1..9] of integer;
i,b:integer;
begin
writeln('Введите 9 целых чисел:');
for i:=1 to 9 do
begin
readln(mas[i]);
if(mas[i] <0) then b:=b+mas[i];
end;
writeln('Сумма отрицательных элементов= :',b);
end.
3) var mas:array[1..4] of integer;
i,b:integer;
begin
writeln('Введите 4 целые числа:');
b:=1;
for i:=1 to 4 do
begin
readln(mas[i]);
b:=b*mas[i];
end;
writeln('Произведение чисел= ',b);
end.



Конечно, я могу помочь вам с этими задачами!
- Увеличение в 10 раз всех элементов массива с нечетными значениями:
pythonarray = []
for i in range(7):
num = int(input("Введите элемент массива: "))
array.append(num)
for i in range(7):
if array[i] % 2 != 0: # Проверяем, является ли элемент нечетным
array[i] *= 10
print("Массив после увеличения нечетных элементов в 10 раз:")
print(array)
- Подсчет суммы отрицательных элементов в массиве:
pythonarray = []
sum_negative = 0
for i in range(9):
num = int(input("Введите элемент массива: "))
array.append(num)
if num < 0: # Проверяем, является ли элемент отрицательным
sum_negative += num
print("Сумма отрицательных элементов массива:", sum_negative)
- Подсчет произведения всех элементов в массиве:
pythonarray = []
product = 1
for i in range(4):
num = int(input("Введите элемент массива: "))
array.append(num)
product *= num
print("Произведение всех элементов массива:", product)
Вы можете запустить этот код и ввести значения для каждого элемента массива, после чего программа выполнит требуемые действия и выведет результаты.


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







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