
Дан целочисленный массив, элементы которого могут принимать значения от 0 до 100. Разработать
алгоритм, который позволяет найти произведение двухзначных четных элементов массива, которые начинаются с цифры 5 или 6. Количество элементов массива и их задаются в программе.

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

var
a:array [1..100] of integer;
i,n:integer;
p:longint;
begin
write ('N = ');readln(n);
for i:=1 to n do begin
write ('A[',i,'] = ');readln(a[i]);
end;
writeln;
p:=1;
for i:=1 to n do
if ((a[i] div 10 <> 0) and (a[i] mod 2 = 0)) and ((a[i] div 10 = 5) or (a[i] div 10 = 6)) then
p:=p*a[i];
writeln (p);
readln;
end.



Для решения данной задачи необходимо выполнить следующие шаги:
Создать целочисленный массив заданного размера и заполнить его случайными значениями от 0 до 100.
Пройти по всем элементам массива и проверить, является ли элемент двузначным, четным и начинается ли он с цифры 5 или 6.
Если элемент удовлетворяет всем требованиям, умножить его на переменную-счетчик, начальное значение которой равно единице.
После прохождения всех элементов массива, вернуть значение переменной-счетчика.
Вывести на экран результат умножения двузначных четных элементов массива, начинающихся с цифры 5 или 6.
Пример кода на языке Python:
pythonimport random
size = int(input("Введите размер массива: "))
arr = [random.randint(0, 100) for _ in range(size)]
result = 1
for i in arr:
if i >= 50 and i <= 69 and i % 2 == 0:
result *= i
print("Произведение двузначных четных элементов массива, начинающихся с цифры 5 или 6: ", result)
В данном примере мы создаем массив заданного размера и заполняем его случайными значениями от 0 до 100 с помощью генератора списков. Затем мы проходим по всем элементам массива и проверяем их на соответствие требованиям: двузначность, четность и начинается ли число с цифры 5 или 6. Если элемент удовлетворяет всем требованиям, мы умножаем его на переменную-счетчик result. После прохождения всех элементов массива мы выводим на экран результат умножения двузначных четных элементов массива, начинающихся с цифры 5 или 6.


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








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