Const n=20;
var a: array[1..n] of integer;
i, max, imax, min, imin : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write(a[i],' ');
end;
writeln;
max:=a[1]; imax:=1; min:=a[1]; imin:=1;
for i:=2 to n do
begin
if a[i] > max then begin max:=a[i]; imax:=i; end;
if a[i] < min then begin min:=a[i]; imin:=i; end;
end;
writeln('max=',max,' min=',min);
a[imax]:=min; a[imin]:=max;
writeln('Измененный массив:');
for i:=1 to n do write(a[i],' '); writeln;
end.
Пример:
Исходный массив:
-20 6 40 -34 -31 48 1 -24 -35 24 23 8 -13 28 22 -38 26 35 -3 0
max=48 min=-38
Измененный массив:
-20 6 40 -34 -31 -38 1 -24 -35 24 23 8 -13 28 22 48 26 35 -3 0
Var n, i: Integer;
sum: Double;
a: Array[1..1000] of Double;
begin
ReadLn(n);
for i:=1 to n do Read(a[i]);
sum:=0;
for i:=1 to 10 do sum:=sum+a[i];
a[8]:=sum;
WriteLn('--');
for i:=1 to n do Write(a[i]:0:3, ', ');
end.
От 0 до 8 иначе говоря по 8 цифр на одной позиции
количество комбинаций будет равно 64 (узнали мы это возведя количество чисел (8) в квадрат
2 в 6-й степени равно 64 значит можно закодировать 6-ю битами
В заданном выражении скобка (¬x ∧ y ∧ z) будет равна 1 при следующих значениях переменных: x=0, y=1, z=1;
скобка (¬x ∧ ¬z) будет равна 1 при x=0, z=0.
Комбинацию значений 0, 1, 1 видим в последней строке таблицы, значит Перем.3 - это x; из второй строки определяем, что Перем. 2 - это z, следовательно, Перем.1 - это y.
Ответ: yzx
Насколько он сместился за эти три команды "Сместиться на (-5, -1) Сместиться на (3, 2) Сместиться на (3, -1)"? на (-5 +3 +3,-1 +2 -1) = (1,0).
Теперь умножаем полученные координаты на количество повторений: (3,0).
Ещё перед этим он сместился на (-4, -1), значит суммарно он сместился на (3 -4, 0 -1) = (-1, -1). И чтобы вернуться обратно, нужно сместиться на это же значение, но в противоположную сторону, то есть, на (1,1)