Const n=15;
var a,s:array [1..100] of integer;
i,j:integer;
begin
for i:=1 to n do begin
a[i]:=random(15);
write(a[i],' ');
end;
j:=1;
writeln;
writeln('Полученный массив');
for i:=1 to n do begin
if (a[i] mod 2 = 0) and (a[i]>0) then begin
inc(j);
s[j]:=a[i];
write(s[j],' ');<span>
end;
end;</span>
<span>2) (X ∨ Y) → ¬Z является верным</span>
44,94,94(четные) 47,97,99,97,99 (не четные(
512 граммов
1*2=2
2*2=4
4*2=8
8*2=16
16*2=32
32*2=64
64*2=128
128*2=256
256*2=512
read(n);
if (n>99) and (n<1000) then writeln('Yes');