Лекция: Программа 9.2.

Program alfavit;

const kol_vo=10;

var i, k, j: integer;

stroki: array [1..kol_vo] of string;

begin

writeln ('Введите ', kol_vo:3, ' строк для упорядочивания' );

writeln ('Ввод строки заканчивается клавишей Enter' );

for i:=1 to kol_vo do readln( stroki[i]);

writeln ('Результаты выполнения программы');

for i:=1 to kol_vo do

begin

k:=1;

for j:=2 to kol_vo do

if (stroki[j]< stroki[k]) and (stroki[j]<>'') then k:=j;

writeln (stroki[k]) ;

stroki[k]:='';

end;

end.

Рис.9.1. Блок-схема задачи 9.2