1.
Составьте программу вычисления в массиве с(15) произведения элементов ,кратных 9
2.составьте программу вычисления в массиве b(25) среднего арифметического с нечетными числами

1)
var
c:array [1..15] of integer;
i,n:integer;
Begin
n:=1;
randomize
;for i:=1 to 15 do
c[i]:=random(50);
for i:=1 to 15 do
write(c[i],' ');
for i:=1 to 15 do
if c[i] mod 9=0 then
 n:=c[i]*n;
writeln;
for i:=1 to 15 do
write(c[i],' ');
writeln;
writeln(n);
End.
2)
var
b:array [1..25] of integer;
i,,j:integer;
cr:real;
Begin
randomize;
for i:=1 to 25 do
b[i]:=random(50);
for i:=1 to 25 do
write(b[i],' ');
for i:=1 to 25 do
if b[i] mod2<>0 then
Begin
 cr:=cr+b[i];
 j:=j+1;
 end; 
cr:=cr/j;
 writeln;
 write(cr); 
End. 
-----------------Не забудьте сказать спасибо-----------------------