<span>B&C→AvB=С
</span> ¬(B&C)v(AvB)=С
(¬Cv¬B)v(AvB)=С
(¬CvA)v(¬BvB)=С
(¬CvA)v1=С
1 = C
<span>
</span>
Program qq;
const N=(количество чисел в массиве);
var A:array[1..N] of integer;
i, S,k,SA:integer;
begin
for i:=1 to N do readln(A[i]);
S=0; SA:=0; k:=0;
for i:=0 to N do
if (imod2=0) then begin
S=S+A[i];
k:=k+1;
end;
SA:=S/k;
writeln(sa);
<span>end.</span>
128×64×128=1048576 символов. 1 символ= 1 байту= 8 бит. 1048576×8=8388608 бит, 1048576×1=1048576 байт. 1 килобайт= 1024 байта. 1048576÷1024=1024 килобайта
13 чисел я нашёл. Ну подсчитай сам
Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln('Result:',k);
if odd(k) then writeln('Yes') else writeln('No');
end.
<span>
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes<span>
</span></span>