
Заполнить массив А, состоящий из 35 элементов, случайными числами в отрезке [–40;200]. Определить
верно ли, что сумма элементов, которые больше 20, превышает 100.

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

Ответ:
program z1;
var a : array [1..35] of integer;
i, s: integer;
begin
write ('Массив: ');
s:=0;
randomize;
for i:=1 to 35 do
begin
a[i]:=random (241)-40;
write(a[i],' ');
if a[i]>20 then s:=s+a[i]
end;
writeln;
if s>100 then write('Верно, что сумма элементов, которые больше 20, превышает 100 (s = ',s,')')
else write('Неверно, что сумма элементов, которые больше 20, превышает 100 (s = ',s,')')
end.
Объяснение:
Действия в цикле:
1) Присваивание значения элементу с помощью функции random
2) Вывод элемента на экран
3) Если элемент больше 20, то увеличиваем значение переменной s на значение элемента
Если переменная s больше 100, то выводим: Верно, иначе: Неверно



Для решения этой задачи вам понадобится язык программирования, чтобы сгенерировать массив случайных чисел и вычислить сумму элементов, которые больше 20.
Вот пример решения этой задачи на языке Python:
pythonimport random
# Создаем массив A из 35 случайных чисел в диапазоне [-40, 200]
A = [random.randint(-40, 200) for _ in range(35)]
# Инициализируем переменную для суммы элементов, больших 20
sum_greater_than_20 = 0
# Вычисляем сумму элементов больших 20 и сразу проверяем условие
for num in A:
if num > 20:
sum_greater_than_20 += num
# Проверяем условие
if sum_greater_than_20 > 100:
print("Сумма элементов, больших 20, превышает 100.")
else:
print("Сумма элементов, больших 20, не превышает 100.")
Этот код создает массив A из 35 случайных чисел в заданном диапазоне, вычисляет сумму элементов, которые больше 20, и затем проверяет условие, превышает ли сумма 100.


Похожие вопросы


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







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