Ответы на вопрос:
const M = 10;
var A: array [1..M] of integer;
var i,sum: integer;
begin
// Задаем элементы массива и выводим его на экран
randomize();
For i:= 1 to M do
begin
A[i]:=random(56)-28;
write(A[i],' ');
end;
// Считаем произведение элементов, кратных 3
sum:=1;
For i:= 1 to M do
begin
if ((A[i] mod 3) = 0) then sum:=sum*A[i];
end;
// сhr(10) - новая строка
writeln(сhr(10),'Произведение элементов, кратных 3: ',sum);
end.
Популярно: Информатика
-
кирилл212704.04.2021 07:57
-
lllJenyalll09.06.2023 05:26
-
ььь5525.08.2021 02:04
-
nastyzotova1237816.03.2023 07:26
-
NiKoOl1823.08.2022 01:03
-
ArtemPatsaliuk22.01.2022 00:06
-
repkinvasya23.03.2020 03:00
-
Ненике08.09.2020 04:10
-
vlad270329p08pha20.11.2022 03:00
-
500о19.04.2020 16:33