K:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<>0 then k:=k+1;
(4<<2)*((9>>2)+1)
1) 4<<2 = 4*2*2=16 (сдвиг влево на каждый разряд удваивает число)
2) 9>>2 = 2 (сдвиг вправо на каждый разряд уменьшает число вдвое, остаток теряется)
3) 2+1 = 3
4) 16 * 3 = 48
Итого, три пары скобок
2бит = 0.25байт
213бит = 0.213кб
1мб = 1024кб = 128000байт = 1024000бит
12288 бит = 1,536кб
Const
n = 8;
nmax = 32767;
var
a: array[1..n] of integer;
i, t, min: integer;
begin
min := nmax;
for i := 1 to n do
begin
Read(t); a[i] := t;
if (t > 0) and (t mod 2 = 0) then
if min > t then min := t
end;
if min <> nmax then
Writeln('Минимальный положительный четный элемент равен ', min)
else
Writeln('В массиве нет четных положительных элементов')
end.
<u>Тестовое решение:</u>
353 638 -1000 -452 320 -18 19 0
Минимальный положительный четный элемент равен 320