Var i,s: integer; a:array[1..20] of integer;
begin
s:=1;
randomize;
for i := 1 to 20 do
a[i] := random(45)-20;
for i:=1 to 20 do
begin
i:=i+1;
s:=s*i;
end;
write(s);
end.
проверяй в компиляторе, где-то накосячил
Program primer;
Uses crt;
var i,n: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-50;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=n downto 1 do
write(a[i]:5);
readln;
end.
<span>НЕ ((число <=40) и НЕ (число нечетное))
</span>1) НЕ ((37 <=40) и НЕ (37 нечетное)) ⇒ НЕ (Истина и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
2) НЕ ((40 <=40) и НЕ (40 нечетное)) ⇒ НЕ (Истина и НЕ Ложь) ⇒ НЕ Истина ⇒ Ложь
3) НЕ ((51 <=40) и НЕ (51 нечетное)) ⇒ НЕ (Ложь и НЕ Истина) ⇒ НЕ Ложь ⇒ Истина
4) <span>НЕ ((62 <=40) и НЕ (62 нечетное)) </span>⇒ НЕ (Ложь и НЕ Ложь) ⇒ НЕ Ложь ⇒ Истина
Ответ: 2) 40