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

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