var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.
<span>1 байт = 8 бит, тогда </span>8 байт - 64 бит
V=R*t*N
t=V/RN
t=(3750*1024*8)/(32*48000)
t=20 секунд
В двух словах - поиск таких элементов А которые не встречаются в векторе С
как делается
пробегаем по вектору А
при каждом новом элементе обнуляем флаг К
продегаем по вектору С
сравниваем текущий элемент А с текущим элементом С
если равны, то меняем флаг К на 1
когда текущий элемент А сравнили со всеми элементами С и флаг К остался нулем, то значит не нашли равных и выводим значение текущего элемента А на экран
и тд