31=2^4+2^3+2^2+2^1+2^0=11111
52=2^5+2^4+2^2=110100
25|12|6|3|1|0
——————
1__0_0_1_1_ ; 25=11001
34|17|8| 4 |2| 1 |0
——————————
0_1__0_0_0_1
34=100010
Const
N = 30;
Var
A,B:array[1..N] of integer;
i,S,M:integer;
Begin
Randomize;
Write('A(',N,'):');
M:=0;
For i:= 1 to N do
Begin
A[i]:=random(11)-5;
Write(' ',A[i]);
if A[i] > 0 then
Begin
M:=M+1;
B[M]:=A[i];
End
End;
WriteLn;
Write('B(',M,'):');
For i:= 1 to M do
Write(' ',B[i]);
ReadLn;
End.
Const
nn=50; { максимально возможное кол-во строк }
mm=50; { максимально возможное кол-во столбцов }
var
a:array[1..nn,1..mm] of integer;
i,j,m,n,imax,t:integer;
begin
Write('Количество строк в массиве: '); Read(n);
Write('Количество столбцов в массиве: '); Read(m);
Writeln('Вводите элементы массива');
for i:=1 to n do
for j:=1 to m do Read(a[i,j]);
for j:=1 to m do begin
imax:=1;
for i:=2 to n do
if a[i,j]>a[imax,j] then imax:=i;
if i<>1 then begin
t:=a[1,j]; a[1,j]:=a[imax,j]; a[imax,j]:=t
end
end;
Writeln('Результат');
for i:=1 to n do begin
for j:=1 to m do Write(a[i,j]:3);
Writeln
end
end.
var n,a,i,max:integer;
begin
readln(n);
max:=0;
for i:=1 to n do
begin
read(a);
if (a mod 10=2)and(a>max) then max:=a;
end;
writeln(max);
end.
Пример:
17 20 12 41 15 5 52 10
52