program d1;
type mas=array [1..5,1..5] of integer;
const
x:mas=((1,2,3,4,5),
(5,4,3,2,1),
(6,7,8,9,10),
(11,12,13,14,15),
(10,9,8,7,6));
var q,a: mas;
i,j:integer;
function Naim(var chislo: integer): integer;
var i,j,imin: integer;
begin
imin:=chislo;
for i:=1 to 5 do
for j:=1 to 5 do
if imin>x[i,j] then imin:=x[i,j];
Naim:=imin
end;
Procedure Udv(var stolb: integer);
begin
stolb:=stolb*2;
end;
begin
writeln('Исходный массив');
for i:=1 to 5 do begin writeln;
for j:=1 to 5 do write(x[i,j],' ');
end;
writeln;
writeln('Преобразованный массив');
for i:=1 to 5 do begin
writeln;
for j:=1 to 5 do begin
if (not odd(j)) then Udv(x[i,j]);
write(x[i,j],' ');
end;
end;
writeln;
writeln('Наименьшее число: ',Naim(x[1,1]));
end.
Полностью готовая программа, пришлось подправлять еще и функцию Naim
Все довольно просто и удобно!
Запомни некую табличку:
Двоичные триады выше, Восьмеричные цифры ниже.
000 001 010 011 100 101 110 111
0 1 2 3 4 5 6 7
Поясню примером.
Число 4 в (восьмеричной) это 100, 5 это 101, 0 это 000 и т.д
У нас число 23. Вот и смотрим.
Число два это 010, а число 3 - 011.
Вот и записываем получается: 010011 (это число 23)
Далее складываем числа, складываем исключительно в столбик.
0 1 0 0 1 1
+ 1 1 1 0
1 0 0 0 0 1
Пока что рано говорить ответ, ведь надо запомнить истину, складывая в столбик число 1+0 даст = 1, так же как и 0+1 = 1, а вот что делать когда есть 1+1 ? (но ведь двоичная это только 0 и 1, нету никакой 2) поэтому мы пишем 0 и передвигаем на 1 знак единичку вперед.
Следовательно ответ будет тот который записан и выделен выше черным шрифтом.
ответ: 100001 (В ДВОИЧНОЙ СИСТЕМЕ СЧИСЛЕНИЯ)