Задається лiнiйний масив A розмiрнiстю N. Ваше завдання виконати D операцiй зсуву влiво всiх елементiв масиву. При зсувi влiво перший елемент масиву перемiщається в кiнець масиву, а для всiх iнших iндекси зменшуються на 1.
11 10 01 00 это доичный код чтобы его записать в шестнадцатеричном нужно разбить код справа на лева на тетрады это например 1111 - тоесть 4 знака. справа налева разбиваеться для того что бы если в левом не будет хвотать знаков их дописать 0, тоесть если 11011 переводить в 16-ч, разобьеться вот так 0001 1011
вашем случая 11100100 разобьеться так 1110 0100
дальше по алгоритму нужно заменять тетрады на цифру из 16-ч. 1 0001 2 0010 3 0011 4 0100 5 0101 6 0110 7 0111
A=00
Б=01
B=10
Г=11
11 10 01 00
это доичный код чтобы его записать в шестнадцатеричном нужно разбить код справа на лева на тетрады это например 1111 - тоесть 4 знака.
справа налева разбиваеться для того что бы если в левом не будет хвотать знаков их дописать 0, тоесть если 11011 переводить в 16-ч, разобьеться вот так 0001 1011
вашем случая 11100100 разобьеться так 1110 0100
дальше по алгоритму нужно заменять тетрады на цифру из 16-ч.
1 0001 2 0010 3 0011 4 0100 5 0101 6 0110 7 0111
8 1000 9 1001 A 1010 B 1011 C 1100 D 1101 E 1110
F 1111
вот смотри значит 1110=E 0100=4
11100100=E4
var
i, j, minlen, ind, count, countrow: ineteger;
A:array[10, 10] of integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(A[i,j]);
ind:=1;
minlen:=11;
for i:=1 to 10 do
begin
count:=1;
countrow:=1;
for j:=2 to 10 do
begin
if (A[i,j]=A[i,j-1]) then
inc(count)
else
begin
if (count>countrow) then
countrow:=count;
count:=1;
end;
end;
if (countrow<minlen) then
begin
minlen:=countrow;
ind:=i;
end;
end;
for j:=1 to 10 do
writeln(A[ind,j])
end.