Const
n = 10;
m = 10;
type
Matrix = array[1..n, 1..m] of integer;
procedure EnterMas(var Mas: Matrix);
var i, j: integer;
begin
randomize;
for i := 1 to n do
for j := 1 to m do
Mas[i, j] := random(100);
end;
procedure GiveMas(var Mas: Matrix);
var i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
write(Mas[i, j], ' ');
end;
writeln;
end;
end;
function SumStroki(Mas: Matrix; i, k: integer): integer;
var
j, sum: integer;
begin
sum := 0;
for j := 1 to m do
Sum := Sum + Mas[i, j];
SumStroki := sum - k;
end;
function Element(var Mas: Matrix): integer;
var
i, j, count: integer;
begin
count := 0;
for i := 1 to n do
for j := 1 to m do
if Mas[i, j] > SumStroki(Mas, i, Mas[i, j]) then inc(count);
Element := count;
end;
var Mas: Matrix;
Sum, Max: integer;
begin
EnterMas(Mas);
GiveMas(Mas);
writeln('Кол-во особых элементов ', Element(Mas));
end.
Сначала переведем В в восьмеричную систему.
2034 (5) = 415 (8)
415 (8) + 327 (8) = 744 (8)
Переведу результат в двоичную систему.
744 (8) = 111100100 (2).
,глаза,уши,нос,вообщем органы чувств.
143.
Дано i=24
x*y=1024*768 I=x*y*i=18874368бит=2.25Мбайт
N=16777216=2^24
144.
i=24
x*y=1600*1200
I=1600*1200*24=46080000бит~~~5.5Мбайт Можно купить 512мбайт и 64мбайт