
Дан одномерный массив A[10]. Элементы массива – это вещественные случайные числа большие -60 и
меньшие 100. Написать программу, которая будет находить количество элементов массива, кратных числу 8 и больших 10.

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

Ответ:
( Решение на Pascal )
Не совсем ясно, каким образом составители задачи планировали найти среди случайных вещественных 10 чисел в диапазоне от -60 до 100 числа, кратные 8.
Но ради Бога:
var A: array [1..10] of real;
var i,s: integer;
begin
s:=0;
randomize();
for i:=1 to 10 do
begin
A[i]:=random()*160-60;
write(A[i]:3:5,' ');
if (A[i]>10) and (A[i]-trunc(A[i])=0)
and (trunc(A[i]) mod 8 =0) then
s:=s+1;
end;
writeln();
writeln('Количество элементов массива,',
'кратных числу 8 и больших 10: ',s);
end.




Конечно, вот пример программы на языке Python, который выполняет задачу:
pythonimport random
# Создаем массив A[10] с вещественными случайными числами от -60 до 100
A = [random.uniform(-60, 100) for _ in range(10)]
# Переменная для хранения количества элементов, кратных 8 и больших 10
count = 0
# Проходим по элементам массива и проверяем условия
for num in A:
if num > 10 and num % 8 == 0:
count += 1
# Выводим результат
print(f"Количество элементов, кратных 8 и больших 10: {count}")
Программа создает массив из 10 случайных вещественных чисел, затем проходит по элементам массива и проверяет каждое число на соответствие условиям: больше 10 и кратно 8. Если число удовлетворяет обоим условиям, увеличивается счетчик. По завершении цикла выводится количество подходящих элементов.


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







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