 
Заполнить массив А, состоящий из 35 элементов, случайными числами в отрезке [–40;200]. Определить
верно ли, что сумма элементов, которые больше 20, превышает 100. 0
        0
         0
        0
    Ответы на вопрос
 
        Ответ:
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, то выводим: Верно, иначе: Неверно
 0
                    0
                     0
                    0
                 
            Для решения этой задачи вам понадобится язык программирования, чтобы сгенерировать массив случайных чисел и вычислить сумму элементов, которые больше 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.
 0
                    0
                     0
                    0
                Похожие вопросы
 
			 
			Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
- 
			Математика 
- 
			Литература 
- 
			Алгебра 
- 
			Русский язык 
- 
			Геометрия 
- 
			Английский язык 
- 
			Химия 
- 
			Физика 
- 
			Биология 
- 
			Другие предметы 
- 
			История 
- 
			Обществознание 
- 
			Окружающий мир 
- 
			География 
- 
			Українська мова 
- 
			Информатика 
- 
			Українська література 
- 
			Қазақ тiлi 
- 
			Экономика 
- 
			Музыка 
- 
			Право 
- 
			Беларуская мова 
- 
			Французский язык 
- 
			Немецкий язык 
- 
			МХК 
- 
			ОБЖ 
- 
			Психология 
- 
			Физкультура и спорт 
- 
			Астрономия 
- 
			Кыргыз тили 
- 
			Оʻzbek tili 
 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			