for i:=1 to N-1 do
for j := i+1 to N do
if (a>a[j]) then
begin
a := a+a[j];
a[j] := a-a[j];
a := a-a[j];
end;
Задача со строковыми данными на языке Turbo Pascal
Здраствуйте. Уважаемые программисты прошу помочь с решением задачи. Желательно в простом ввиде чтобы разобраться. Заранее спасибо.
а для записи самих слов используя массив
a : array [1..N] of string; //N в твоем случае будет равно 3
ну и сам массив заполни конечно)
Код: