Высказывании (Y+1 > X) ∧ (Y+X <0) ∧ (X>1) истинно, если истинен каждый из трех предикатов.
1) X = 0,5; Y = -1,1
Y+1 > X; -1.1+1 > 0.5; -0.1 > 0.5 ложно и данный набор значений не подходит.
2) X = 1,1; Y = -4
Y+1 > X; -4+1 > 1.1; -3 > 1 ложно и данный набор значений не подходит.
3) X = -1; Y = -4
Y+1 > X; -4+1 > -1; -3 > -1 ложно и данный набор значений не подходит.
4) X = -0,1; Y = -1,1
Y+1 > X; -1.1+1 > -0.1; 0-.1 > -0.1 ложно и данный набор значений не подходит.
Ответ: все четыре варианта не подходят.
Var
a:array [1..10] of integer;
i,sum,kol:integer;
begin
for i:=1 to 10 do a[i]:=random(10)+1;
for i:=1 to 10 do write(a[i],' ');
writeln;
for i:=1 to 10 do
if a[i] mod 2=0 then sum:=sum+a[i] else kol:=kol+1;
writeln(sum);
writeln(kol);
end.
Правильно будет А. D, E тоже имеют право но жизнь, но А вернее в данном случае
Монитор отображает информацию
