Предмет: Информатика, автор: oltgandreev0220

пользователь заполняет одномерный массив длиной 10 слов. Расположите эти массивы по алфавиту

Ответы

Автор ответа: AtoMankO
0
program pr1;
var  a: array[1..10] of string;  i, j: integer;  s: string;
begin 
for i := 1 to 10 do   
readLn(a[i]); 
for i := 1 to 10 do   
for j:=1 to 10 do   
if a[j] > a[i] then   
 begin     
s := a[i];     
a[i] := a[j];     
a[j] := s;   
end; 
writeLn('отсортированный массив'); 
for i := 1 to 10 do   
 writeLn(a[i]);
end.
Похожие вопросы
Предмет: Алгебра, автор: ppzfpywtpnxw
Предмет: Геометрия, автор: sashabogyslav
Предмет: Алгебра, автор: elenasamosudova