Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2 единицы т.к 1025=10000000001 в двоичной системе счисления
var a: array[1..100,1..100] of integer;
i,j,n,min: integer;
begin
read(n);
min: =maxint;
for i: = 1 to n do
for j: = 1 to n do begin
read(a[i,j]);
if abs(a[i,j])< abs(min) then min=a[i,j];
end;
for i: = 1 to n do begin
a[i,j]: =a[i,j] + min
write(a[i,j]);
writeln;
end.
Популярные вопросы