Var i,p:integer;
begin
p:=1;
for i:=-20 to 30 do
if i mod 3 = 0 then p*=i;
writeln(p);
<span>end.</span>
16 байт = 16*8 бит = 128 бит
Функция нахождения индекса наименьшего элемента массива на языке Си:
int getMin(int* X, int size) {int i, m = 0;for(i = 0; i < size; ++i)if(X[i] < X[m]) m = i;return m;}
X - массив, size - размер массива