В первом не хватает-13,14, а во втором -1,2,3,4,5,6,7,9,11,12,13,14,15,16.
Uses Crt;
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.
НЕ (X <= 8) И НЕ (X >= 15) И (X чётное)
(X > 8) И (Х < 15) И (X чётное)
Подходят все чётные числа, в диапазоне (8; 15), т. е.
10; 12 и 14
Ответ: 10, 12, 14