Срочно решитее прошууу!!!!! Заполнить массив a[1..10] из десяти целых чисел от -30 до 30 с помощью
датчика случайных чисел и вывести исходный массив на экран.Найти сумму положительных элементов массива.Ответы на вопрос
n = 10;
var
s, i: integer;
a: array[1..n] of integer;
begin
Randomize;
for i := 1 to n do
begin
a[i] := random(60) - 30;
write(a[i], ' ');
if a[i] > 0 then
s := s + a[i];
end;
writeln;
writeln(s);
end.
Для решения данной задачи можно использовать язык программирования, например, Python.
Пример кода на Python:
```python import random
# Создаем массив из 10 элементов a = [0] * 10
# Заполняем массив случайными числами от -30 до 30 for i in range(10): a[i] = random.randint(-30, 30)
# Выводим исходный массив на экран print("Исходный массив:", a)
# Находим и суммируем положительные элементы массива positive_sum = 0 for num in a: if num > 0: positive_sum += num
# Выводим сумму положительных элементов на экран print("Сумма положительных элементов:", positive_sum) ```
Результат выполнения кода будет примерно следующим:
``` Исходный массив: [12, -4, 20, 27, -15, -5, 10, -2, 0, -26] Сумма положительных элементов: 69 ```
В данном примере мы создаем массив `a` из 10 элементов и заполняем каждый элемент случайным числом в диапазоне от -30 до 30 с помощью функции `random.randint()`. Затем мы выводим исходный массив на экран.
Далее мы находим сумму положительных элементов массива с помощью цикла `for`. Если элемент массива `num` больше нуля, то мы добавляем его к переменной `positive_sum`.
Окончательно, мы выводим сумму положительных элементов на экран.
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili
