
Дан массив целых чисел, состоящий из 5 элементов. Заполнить его с клавиатуры. Найти: количество
четных элементов; вывести значения тех элементов, которые меньше заданного числа Z и кратны 4.

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

const n=5;
var a:array[1..n] of integer;
i,k,z: integer;
begin
for i:=1 to n do
begin
write ('Введите ',i,' элемент: ');
readln (a[i])
end;
write ('Массив: ');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then k:=k+1;
write (a[i]:3,' ')
end;
writeln;
write ('z = ');
readln (z);
write ('Элементы < z и кратные 4: ');
for i:=1 to n do if (a[i]<z) and (a[i] mod 4 = 0) then write (a[i]:3,' ')
end.



// PascalABC.NET версия 3.4, сборка 1767
begin
var mas:=ReadArrInteger('Введите элементы масива-> ',5);
Writeln('количество четных элементов = ',mas.Where(t->t mod 2 = 0).Count);
var z:=ReadInteger('z = ');
Write('значения тех элементов, которые меньше заданного числа Z и кратны 4: ');
mas.Where(t->(t<z )and (t mod 4 = 0)).Print;
end.




Как я понимаю, вопрос заключается в написании программы на языке программирования, который будет выполнять необходимые действия. Я могу предложить решение на языке Python.
Для начала, создадим массив из 5 элементов и заполним его значениями, введенными пользователем с клавиатуры:
pythonarr = []
for i in range(5):
arr.append(int(input("Введите число: ")))
Затем, найдем количество четных элементов с помощью цикла и условного оператора:
pythoncount_even = 0
for i in arr:
if i % 2 == 0:
count_even += 1
print("Количество четных элементов:", count_even)
Наконец, выведем значения элементов, которые меньше заданного числа Z и кратны 4:
pythonZ = int(input("Введите число Z: "))
for i in arr:
if i < Z and i % 4 == 0:
print(i)
Полный код программы выглядит следующим образом:
pythonarr = []
for i in range(5):
arr.append(int(input("Введите число: ")))
count_even = 0
for i in arr:
if i % 2 == 0:
count_even += 1
print("Количество четных элементов:", count_even)
Z = int(input("Введите число Z: "))
for i in arr:
if i < Z and i % 4 == 0:
print(i)
Надеюсь, это решение поможет!


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







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