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

Sashakkkkkkk Sashakkkkkkk    3   15.07.2019 19:10    0

Ответы
Murua Murua  13.08.2020 17:21
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика