
Найди сумму положительных элементов массива, заданных генератором случайных чисел от -30 до 40.
A[i]:= random (70)-30

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

Ответ:
var i,s: integer;
a: array [1..10] of integer;
begin
write('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(71)-30;
write (a[i]:4);
if a[i]>0 then s:=s+a[i]
end;
writeln;
write('Сумма положительных элементов массива ',s)
end.
Объяснение:
a[i]:=random(71)-30 если от -30 до 40 включительно
A[i]:= random (70)-30 если от -30 до 39 включительно



===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
ArrRandom(n, -30, 39).Println.Sum.Println;
end.




Хорошо, я помогу вам найти сумму положительных элементов в заданном массиве, используя генератор случайных чисел от -30 до 40.
Вот код на языке Python, который выполняет данную задачу:
pythonimport random
# Генерируем массив из 10 случайных чисел
array = [random.randint(-30, 40) for _ in range(10)]
# Инициализируем переменную для хранения суммы положительных элементов
sum_positive = 0
# Проходим по каждому элементу массива и суммируем положительные числа
for num in array:
if num > 0:
sum_positive += num
# Выводим результат
print("Массив:", array)
print("Сумма положительных элементов:", sum_positive)
Программа генерирует массив из 10 случайных чисел в диапазоне от -30 до 40. Затем она проходит по каждому элементу массива и суммирует только положительные числа. В конце выводится сгенерированный массив и сумма положительных элементов.
Вы можете изменить размер массива, изменяя значение range
в строке array = [random.randint(-30, 40) for _ in range(10)]
.


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