составить программу, которая заполняет массив b [1..10] случайными целыми числами в диапазоне от 1 до 15 и находит количество с нечётными значениями

вот без выбора диапазона, а диапазон из условия

var mass:array[1..10] of integer; g,s:integer;beginrandomize;for g:=1 to 10 dobeginmass[g]:=random(15+1);if (mass[g] mod 2) = 0 then s:=s+1;writeln(mass[g]);end;writeln('количество нечетных в массиве = '+s);end.

-- ----- mass[g]:=random(15+1); исправь только на mass[g]:=random(15)+1;

и writeln('количество нечетных в массиве = '+(10-s)); добавь, четные с нечетными спутал. Чет совсем голова под вечер тухлая :(

var mass:array[1..10] of integer;        i,g,s:integer;beginrandomize;writeln('введите максимальное случайное число');readln(i);for g:=1 to 10 dobeginmass[g]:=random(i)+1;if (mass[g] mod 2) = 0 then s:=s+1;writeln(mass[g]);end;writeln('количество четных в массиве = '+s);writeln('количество нечетных в массиве = '+(10-s));end.