сортировка массива паскаль

[dante92]

Помогите плиз написать прогу с процедурой которая сортирует массив с данными типа char по возрастанию способом выбора минимального элемента.То есть она просматривает весь массив находит минимальный элемент и переставляет его на 1ое место,далее опять просматривает весь массив но уже начиная со 2го элемента и мин.элемент ставит на 2ое место и т.д.

[ROMA2PVT]

program massiv;
Uses
   CRT;
Type
a=array[1..100] of char;
var
k:a;
l:a;
i,j,n,m,max,xmax,ymax:integer;
nmin:integer;
temp:char;

begin
Clrscr;
  randomize;
  write('введите колличество элементов массива: ');
  readln(n);
  for i:=1 to n do
    begin
      readln(k[i]);
    end;
  writeln;
  writeln('Исходный массив: ');
  for i:=1 to n do
    begin
      write(k[i]:3,' ');
    end;
    writeln;
    
    for i:=1 to n-1 do
begin
nmin:=i;
for j:=i+1 to n do
if k[j]<k[Nmin] then Nmin:=j;
temp:=k[i];
k[i]:=k[Nmin];
   k[Nmin]:=temp;
     end;
     writeln;
  writeln('Отсортироваанный массив: ');
     for i:=1 to n do
    begin
      write(k[i]:3,' ');
    end;
end.

ну и чё?сортировка что в символьных массивах что в числовых одинаковая.

[dante92]

Спасибо большое,но как с помощью процедуры это можно сделать?

[ROMA2PVT]

program massiv;
Uses
   CRT;
Type
a=array[1..100] of char;
var
k:a;
i,j,n,m,max,xmax,ymax:integer;
nmin:integer;
temp:char;

procedure Sort(var l:a; size:integer);
begin
for i:=1 to size-1 do
begin
nmin:=i;
for j:=i+1 to size do
if l[j]<l[Nmin] then Nmin:=j;
temp:=l[i];
l[i]:=l[Nmin];
   l[Nmin]:=temp;
     end;
     end;

begin
Clrscr;
  randomize;
  write('введите колличество элементов массива: ');
  readln(n);
  for i:=1 to n do
    begin
      readln(k[i]);
    end;
  writeln;
  writeln('Исходный массив: ');
  for i:=1 to n do
    begin
      write(k[i]:3,' ');
    end;
    writeln;

    Sort(k,n);
    
    writeln('Отсортироваанный массив: ');
     for i:=1 to n do
    begin
      write(k[i]:3,' ');
    end;
readln;
end.

Ну я бы посоветовал какую нибудь литературку вам почитать по программированию.

[dante92]

Громадное спасибо!)Да почитать придется,может чего посоветуешь?

[ROMA2PVT]

Шпак Ю. А. Turbo Pascal 7.0 на примерах;
Голицина,Попов ''Основы алгоритмизации и программирования";
Но моя литература это мой конспект и мозг.

[dante92]

Еще раз спасибо)В лекции к сожалению не давали примера решения подобных задач,а с нуля я пока не научился такие делать(буду учиться)

[ROMA2PVT]

Не за что.