Программирование на языке Turbo Pascal


Сортировка методом выбора


Сущность метода: Находится минимальный элемент, затем 1-ый и минимальный меняются местами, затем ищется минимальный со 2-го по последний и 2-ой с минимальным меняются местами и т.д.

Задача: Сдвинуть элементы массива влево на одну позицию.

uses crt;

const n=10;

var a: array[1..n] of integer;i, c:integer;

begin

for i:=1 to n do { заполнение массива  и его вы вод на экран}

begin

    a[i]:=random(50);  write (a[i]:5);

end;

c:=a[1];

for i:=1 to n-1 do a[i]:=a[i+1];

a[n]:=c;  writeln;

for i:=1 to n do  write(a[i]:5);

repeat until keypressed; end.



Содержание раздела