27 13 6 3 1 ДЕЛИМ 27 на 2 , в частном берем без целое число (=13) 1 1 0 1 1 <=== 27(10) =11011(2) пишем в обратном порядке Делим 13 на 2, в частном берем целое без округления 6 Делим 6 на 2 (=3) и т.д.
var a, b, c, i, j, n, ch:integer; s, p:array [1..10000] of integer; begin n:=30; for i:=1 to n do s[i]:=random(64000)-32000; writeln('Данный массив'); for i:=1 to n do write (s[i],' '); a:=s[1]; for i:=1 to n do if s[i]>a then a:=s[i]; for i:=1 to n do if s[i]=a then begin j:=j+1; p[j]:=i; end; c:=j; writeln; writeln('Полученный массив'); for i:=1 to n do begin ch:=0; for j:=1 to c do if i=p[j] then inc(ch); if ch=0 then write (s[i],' '); end; end. P.S. Надеюсь на благодарность и лучший ответ.
1 1 0 1 1 <=== 27(10) =11011(2) пишем в обратном порядке
Делим 13 на 2, в частном берем целое без округления 6
Делим 6 на 2 (=3) и т.д.
11 5 2 1
1 1 0 1 11(10) = 1011(2)
2001 1000 500 250 125 64 32 16 8 4 2 1
1 0 0 0 1 0 0 0 0 0 0 1
2001(10) =100000010001(2)
s, p:array [1..10000] of integer;
begin
n:=30;
for i:=1 to n do
s[i]:=random(64000)-32000;
writeln('Данный массив');
for i:=1 to n do
write (s[i],' ');
a:=s[1];
for i:=1 to n do
if s[i]>a then
a:=s[i];
for i:=1 to n do
if s[i]=a then
begin
j:=j+1;
p[j]:=i;
end;
c:=j;
writeln;
writeln('Полученный массив');
for i:=1 to n do
begin
ch:=0;
for j:=1 to c do
if i=p[j] then inc(ch);
if ch=0 then write (s[i],' ');
end;
end.
P.S. Надеюсь на благодарность и лучший ответ.