Даны 5 чисел, найти произведение чисел, кратных пяти. паскаль.

Question

Даны 5 чисел, найти произведение чисел, кратных пяти. паскаль.

Answer 1

program chislo;

const

n=5;

var  

  a: array [1..n] of integer;

  i,s : integer;

begin  

randomize;

s:=1;

for i:=1 to n do

begin

a[i]:=random(100);

write(a[i]:4);

end;

writeln;

for i:=1 to n do  

if a[i] mod 5 = 0 then

s:=s*a[i];

if s=1 then  

writeln('Нет чисел кратных пяти')

else

writeln('Произведение чисел кратных пяти: ',s);

end.