Дан массив целых чисел B (15), найти произведения элементов массива кратных х.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
