const
SzM = 10;
SzN = 10;
var
a: array[1..SzM, 1..SzN] of integer;
m, n, i, j, Count: integer;
begin
m := 3;
n := 4;
{ввод массива}
for i := 1 to m do
for j := 1 to n do
a[i, j] := (i - 1) * n + j;//если ввод вручную, тогда Read(a[i,j])
{вывод массива}
for i := 1 to m do
begin
for j := 1 to n do
Write(a[i, j]:4);
Writeln;
end;
{подсчет четных}
for i := 1 to m do
for j := 1 to n do
if a[i, j] mod 2 = 0 then Count += 1;
Write('количество четных: ', Count)
end.
............................101000000
263 Кб= 263*2^13 бит ;
263*2^13/2^7*1000=19 (секунд)
Мне такого не давали решать, и я точно не знаю как это делается, сделал как мог...
101101(2)=1*2^0+0*2^1+1*2^2+1*2^3+0*2^4+1*2^5=1+0+4+8+0+32=
45(10)