2500 байт = 0.0025 Мбайт = 0.0000025 Гбайт
Ты уверен, что задание записано верно?
А В А*В А*В+А В*А А+В*А (А*В+А)*(А+В*А)
0 0 0 0 0 0 0
0 1 0 0 0 0 0
1 0 0 1 0 1 1
1 1 1 1 1 1 1
Const m=200;
<span>var a: array[1..m] of integer;
</span><span> i,j,n: integer;
</span><span>begin
</span><span> write('количество элементов массива: ');
</span><span> readln(n);
</span><span> randomize;
</span><span> write('массив: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(40);
</span><span> write(a[i],' ');
</span><span> end;
</span><span> writeln;
</span><span> write('отсортированный массив: ');
</span><span> for i:=1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then swap(a[i],a[j]);
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span><span>
</span>количество элементов массива: 10
<span>массив: 32 2 10 22 2 13 25 6 15 6
</span><span>отсортированный массив: 2 2 6 6 10 13 15 22 25 32
</span><span>
</span>
Вроде б. Хм......
.....ббббббббб ......