52(10), 101001(2)=41(10), 43(8)=35(10), 36(16)=30(10)
1024*768*16=12582912
12582912*75=943718400 бит / 8 бит = 117964800 байт / 1024байт = 115200 КБайт /1024 КБайт = 112,5 МБайт/с
Const
m=5;
n=3;
var
i,j,k:integer;
a:array[1..m,1..n] of integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(999)+1;
Write(a[i,j]:4);
if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
end;
Writeln
end;
if k>0 then begin
Writeln('Искомые элементы');
for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
end
else
Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.
Пример работы программы
Исходный массив
424 672 826
546 587 413
507 211 884
252 781 518
750 656 359
Искомые элементы
424
1.44 *1024 = 1474.56 Кб * 1024 = 1509949,44 байт
1509949,44 байт - 80% = 301989,88 байт
301989,88 байт можно ещё записать