Без рандома:
program p5_4;
var
P,S,S1:real; i,k:integer;
b:array[1..20] of integer;
z:array[1..10] of integer;
begin
writeln(' z: ');
for k:=1 to 10 do
begin
Readln(z[k]);
write(z[k]:4);
end;
writeln;
writeln(' b: ');
for i:=1 to 20 do
begin
Readln(b[i]);
write(b[i]:4);
end;
P:=1;
S1:=0;
for i:=1 to 20 do
S1:=2*(S1+cos(sqr(b[i])));
for k:=1 to 10 do
P:=P*(z[k]);
S:=S1+P;
writeln(' S=',S:2:5);
<span>end.</span>
1.
<span>(число <20) и не ( число нечетное)
</span>(9 <20) и не (9 нечетное) ⇒ Истина и не Истина ⇒ Ложь
(18 <20) и не (18 нечетное) ⇒ Истина и не Ложь ⇒ Истина
(35 <20) и не (35 нечетное) ⇒ Ложь и не Истина ⇒ Ложь
(48 <20) и не (48 нечетное) <span>⇒ Ложь и не Ложь ⇒ Ложь
</span>Ответ: 2) 18
2.
<span>не (число >30) и ( число четное) или ( число меньше или равно 10)
</span>не (5 >30) и (5 четное) или (5 меньше или равно 10) ⇒
не Ложь и Ложь или Истина ⇒ Ложь или Истина ⇒ Истина
не (9 >30) и (9 четное) или (9 меньше или равно 10) <span>⇒ </span>
<span>не Ложь и Ложь или Истина ⇒ Ложь или Истина ⇒ Истина
</span>не (22 >30) и (22 четное) или (22 меньше или равно 10) <span>⇒ </span>
<span>не Ложь и Истина или Ложь ⇒ Истина или Ложь ⇒ Истина
</span>не (40 >30) и (40 четное) или (40 меньше или равно 10) <span>⇒ </span>
<span>не Истина и Истина или Ложь ⇒ Ложь или Ложь ⇒ Ложь
</span>Ответ: 1) 5; 2) 9; 3) 22
3.
<span>( число больше или равно 10) или ( число четное) или ( число меньше или равно 30)
</span>(7 больше или равно 10) или (7 четное) или (7 меньше или равно 30) ⇒
Ложь или Ложь или Истина ⇒ Истина
(20 больше или равно 10) или (20 четное) или (20 меньше или равно 30) ⇒
Истина или Истина или Истина <span>⇒ Истина
</span>(27 больше или равно 10) или (27 четное) или (27 меньше или равно 30) ⇒
Истина или Ложь или Истина <span>⇒ Истина
</span>(35 больше или равно 10) или (35 четное) или (35 меньше или равно 30) ⇒
Истина или Ложь или Ложь <span>⇒ Истина
Ответ: для всех приведенных чисел результат высказывания - Истина
</span>
4.
<span>(число >30) или не (число четное) и (число меньше или равно 10)
</span>(5 >30) или не (5 четное) и (5 меньше или равно 10) ⇒
Ложь или не Ложь и Истина ⇒ Ложь или Истина ⇒ Истина
(8 >30) или не (8 четное) и (8 меньше или равно 10) ⇒
Ложь или не Истина и Истина <span>⇒ Ложь или Ложь ⇒ Ложь
</span>(17 >30) или не (17 четное) и (17 меньше или равно 10) ⇒
Ложь или не Ложь и Ложь <span>⇒ Ложь или Ложь ⇒ Ложь
</span>(28 >30) или не (28 четное) и (28 меньше или равно 10) ⇒
Ложь или не Истина и Ложь <span>⇒ Ложь или Ложь ⇒ Ложь
Ответ:</span> 2) 8 3) 17 4) 28
5.
<span>не (первая буква согласная) или ( последняя буква гласная)
</span>не (С согласная) или (А гласная) ⇒ не Истина или Истина ⇒ Истина
не (С согласная) или (Н гласная) <span>⇒ не Истина или Ложь ⇒ Ложь
</span>не (А согласная) или (Т гласная) <span>⇒ не Ложь или Ложь ⇒ Истина
</span>не (А согласная) или (А гласная) <span>⇒ не Ложь или Истина ⇒ Истина
Ответ: </span><span>2) Слон
6.
</span>( последняя буква согласная) или ( первая буква гласная)
(А согласная) или (К гласная) ⇒ Ложь или Ложь ⇒ Ложь
(К согласная) или (Б гласная) <span>⇒ Истина или Ложь ⇒ Истина
</span>(Л согласная) или (О гласная) <span>⇒ Истина или Истина ⇒ Истина
</span>(А согласная) или (О гласная) <span>⇒ Ложь или Истина ⇒ Истина
Ответ: </span>1) Коза
For N:= 1 to 10 do
if mas[N,N]> 0 then
s:=s+mas[N,N];