<span>142</span>×<span>4=568 Мб
</span>В флешке останется еще 1,5 Гб
1) (А или В)и((А или неВ)=(А и А) или (А и В) или ((А и (неВ))или((В и (неВ))=А или А и В или (А и неВ)=А(1 или В) или (А и неВ)=А или (А и неВ)=А(1 или неВ)=А
2) по закону де Моргана =не (неХ) и не(неУ)=Х и У =ХУ
Вроде так, но на всякий проверь на самом паскале, насчёт знаков и тд
Горизонтальная ось Х вертикальная У
пересечение оси О
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.
<u>Пример</u>
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2