{PascalABC}
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, sum: integer;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do
begin
a[i]:=random(m+1);
end;
{Ищем максимальную сумму двух соседних элементов}
sum:=a[1]+a[2];
for i:=2 to n-1 do
if (a[i]+a[i+1]>sum) then sum:=a[i]+a[i+1];
{Заменяем элементы, кратные 3, наденной суммой}
for i:=1 to n do
if (a[i] mod 3 = 0) then a[i]:=sum;
{Вывод}
writeln('Массив А в обратном порядке:');
for i:=0 to n-1 do writeln(a[n-i],' ');
writeln();
writeln('Максимальная сумма двух соседних элементов равна ',sum);
end.
Program Begenjov1997;
const
n = 30; {Количество элементов массива}
m = 10000; {Максимально возможное значение элемента}
var
a:array[1..n] of integer;
i, min, max: integer;
s:string;
begin
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(60) end;
{заполняем массив случайными числами}
writeln; randomize;
for i:=1 to n do a[i]:=random(m+1);
{Ищем максимальный и минимальный элементы}
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if (a[i]>max) then max:=a[i];
if (a[i]<min) then min:=a[i];
end;
{Заменяем минимальные элементы на максимальные}
for i:=1 to n do
if (a[i] = min) then a[i]:=max;
{Вывод}
writeln('Массив:');
for i:=1 to n do writeln(a[i]);
end.
321,12_4 = 111001,0110_2
(0_4=00_2, 1_4 = 01_2, 2_4=10_2, 3_4=11_2)
CD,2_16 = 11001101,0010_2
(С_16=1100_2, D_16=1101_2, 2_16 = 0010_2)
Сложим в столбик
111001,0110
+ 11001101,0010
=100000110,1000
и вычтем
100000110,1000
- 1010,1100
= 11111011,1100
или FB,C_16