Информатика, 9 класс

program z3; var b:array[1..8] of integer; i,k,s:integer; begin for i:=1 to 8 do b[i]:=random(11); writeln('исходный массив: '); for i:=1 to 8 do write(b[i], ' '); writeln; s:=1; //начальное произведение// k:=0; for i:=1 to 8 do if b[i] mod 2=1 then s:=s*b[i] else k:=k+1; writeln('произведение нечет.эл-в массива = ',s); writeln('колич-во чет.эл-в массива = ',k); end.