Ответ:

program z1;

var i,k:integer;

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

begin

k:=0;

write ('Массив: ');

for i:= 1 to 15 do

begin

n[i]:=random (34)-8;

write(n[i]:5);

if n[i] mod 2 <> 0 then k:=k+1

end;

writeln;

writeln ('k = ',k)

end.

Объяснение:

Если значение элемента нечётное, то увеличиваем значение переменной k на 1