Дан массив целых чисел b (15), найти произведения элементов массива кратных х.
172
336
Ответы на вопрос:
const
n = 15;
var
a: array[1..n] of integer;
i, x, pr: integer;
begin
for i : = 1 to n do
begin
write('a[', i, '] = ');
readln(a[i]);
end;
write('x = '); readln(x);
writeln('исходный массив: ');
pr : = 1;
for i : = 1 to n do
begin
write(a[i], ' ');
if a[i] mod x = 0 then
pr : = pr * a[i];
end;
writeln;
if pr = 1 then
writeln('нет ни одного элемента кратного ', x)
else
writeln('произведение элементов кратных ', x, ' = ', pr);
end.
Популярно: Информатика
-
harrasova2000ozvpju27.12.2022 21:57
-
chief520.09.2020 00:29
-
Iriska91l2316.03.2022 18:38
-
ivanchistyakov26.09.2021 13:43
-
malinka14923.08.2021 13:40
-
alsuu0021.11.2021 21:02
-
Кэти30528.06.2021 03:15
-
Миша311102.07.2021 18:42
-
EvaBagatelya18.01.2021 09:11
-
MikhailMaksimovich06.07.2021 13:33