//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
ar:array[1..n] of integer;
i,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(ar[i])>abs(ar[j]) then swap(ar[i],ar[j]);
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
F=¬z1 * z2 * z3 * ¬z4 * z5 * z6 * ¬z7 (лог. умножение)
1) всего решений = 2^7=128
F=1 - при равенстве 1 всех лог. переменных- одно решение,
F=0 - (128-1=127) - 127 решений. ответ: 127
Да, форма для этого и создаётся, чтобы облегчить ввод и изменение данных.
(Ответ б)
1 символ - 1 байт
1 строка - 80 байт(1*80)
1 страница - 80000 байт(80*100)
1 книга = 80000000 байт(80000*1000)
2 гб = 2048 мб = 2097152 кб = 2147483648 б
всего книг - 26(2147483648/80000000)
M=6/////////////////////////////////////