uses crt;
const n=10;
var a: array[1..n] of integer;
i,j,k: byte; c: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do begin
a[i]:=random(19)-9;
write(a[i]:3); end; writeln;
k:=0; for i:=1 to n-1 do f
or j:=i+1 to n do if a[i]>a[j] then begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
inc(k);
end;
writeln('результат сортировки: ');
for i:=1 to n do write(a[i]:3);
writeln;
writeln('кол-во перестановок = ',k);
end.
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор (0,10)
сместиться на вектор (4,0)
сместиться на вектор (1,-1)
сместиться на вектор (0,-2)
сместиться на вектор (-3,-2)
сместиться на вектор (3,-2)
сместиться на вектор (0,-2)
сместиться на вектор (-1,-1)
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (6,0)
опустить перо
сместиться на вектор (4,10)
сместиться на вектор (4,-10)
поднять перо
сместиться на вектор (-2,5)
опустить перо
сместиться на вектор (-4,0)
поднять перо
сместиться на вектор (7,-5)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (8,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (-2,2)
опустить перо
сместиться на вектор (0,8)
сместиться на вектор (-4,0)
сместиться на вектор (0,-8)
поднять перо
сместиться на вектор (7,-2)
опустить перо
сместиться на вектор (0,10)
поднять перо
сместиться на вектор (0,-10)
опустить перо
сместиться на вектор (5,10)
сместиться на вектор (0,-10)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (0,10)
сместиться на вектор (3,-7)
сместиться на вектор (3,7)
сместиться на вектор (0,-10)
поднять перо
кон
2. Цикл, в який було вкладено внший
3. Вкладений цикл в тіло іншого циклу
4. Кількість виконання всіх внутрішніх циклів не може перевищувати добутку зовнішніх та внутрішніх циклів. Для того, щоб вказати скільки разів програма має виконати дію, потрібно ввести оператор FOR. Де вказуємо кількість дій, що треба виконати. Наприклад, FOR i:=А TO В DO, де А- начальне значення змінної циклу, В- кінцеве значення змінної циклу.